


k $:■ ;*• k ; 


Mjiii 


mm 


IteÉ 


BH 


jjjgr-v.;.' 




:-■■• ■:■■■ .<->.-:-V^. /Ml.;* ifr Kj&gxrf 


ï ■# 


Jun.i ui ■ -d> ) 































































SVI 


Uw Spectravideo-dealer geeft graag 
tekst en uitleg. 


Importeur: 

Electronics Nederland bv 

Tijnmuiden 15/17/19, 

1046 AK Amsterdam 

Electronics Belgium NV 

Brixtonlaan 1H, 

1930 Zaventem 




De eerste MSX-computermetingebouwde randapparatuur. 

De SV738 X'press is een zeer krachtige computer die naast de 
standaard MSX-specificaties ook nog voorzien is van het CP/M 
operating system (80 kolommen). Met MSX-DOS kunt u zowel onder 
40 als onder 80 kolommen draaien. 

Behalve een R5232C interface voor datacommunicatie en een 
standaard Centronics printer interface, heeft de SV 738 X press een 
ingebouwde 3VY' disk-drive 360K, die onder 3 operating Systems 

werkt: Disk Basic, MSX-DOS en CP/M. Een extra 

disk-drive kan worden aangesloten, even¬ 
als andere MSX hardware. 


De sv 738 X'Press is in de 
volgende configuraties leverbaar: 

SV 738 X'Press / 999,- 

* jncl. Wordstar Mailmerge 

Nederlands / 1398 — 

* incl. Micropro pakket neder- 

lands en groene high resolution 
monitor f 1998,— 
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EXTRA EDITIE NR.X1 SEPTEMBER 1986 


Nr. 7 VERSCHIJNT ROND 1 OKTOBER 
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VOORWOORD 


POE POE 

Dat was een flinke klus. Het viel nog behoorlijk tegen om zo'n 
extra editie even tussendoor in elkaar te zetten. Maar goed, 
daar ligt hij dan; boordevol listings en veel informatie over de 
nieuwe machines en software. 

TELEFOONNUMMERS 


De MSX-Gids heeft twee telefoonnummers. Een van de redaktie en 
een van de uitgeefster. Voor abonnementen, losse nummers en 
informatie over adverteren kan het nummer van de uitgeverij 
gebeld worden: 020-327464. van 10.00 uur tot 17.30 uur. 

Voor informatie over de inhoud van het blad (b.v. vragen over 
listings) kan met de redaktie gebeld worden: 020-320807 van 
12.00 uur tot 20.00 uur. 

Voor beide nummers geldt: alleen op werkdagen. Niet op zaterdag 
en op zondag. Wij hebben ook graag een rustige dag tussendoor. 
Vergeet niet dat het soms gaat om zo'n 50 telefoontjes per dag! 
Deze twee 'rustdagen' gebruiken wij voor het schrijven en testen 
van nieuwe programma's voor de Gids. Wanneer we zaterdag en 
zondag ook nog de hele dag de telefoon moeten aannemen komt hier 
niet veel van terecht en dat komt het blad niet ten goede. 

DISKETTEFORMATEN 


Er bestaat nogal wat verwarring over de verschillende diskette 
formaten. Veel mensen weten niet of ze nu een 40-track of een 
80- track systeem hebben. We zullen van de meeste merken de 
formaten hier opgeven zodat hierover geen misverstand meer kan 
bestaan: 


DISKDRIVE/COMPUTER: 

DISKETTE: 

TOTAAL AANTAL 

TRACKS: 

SONY HBD-50 

3.5" 

80 

TRACK-SS 

80 

TRACKS 

(360 

KB) 

PHILIPS VY-0010/0011 

3.5" 

80 

TRACK-SS 

80 

TRACKS 

(360 

KB) 

PHILIPS VG-8230/8235 

3.5" 

80 

TRACK-SS 

80 

TRACKS 

(360 

KB) 

SVI 738 X 'PRESS 

3.5" 

80 

TRACK-SS 

80 

TRACKS 

(360 

KB) 

SV 787 

3.5" 

80 

TRACK-SS 

80 

TRACKS 

(360 

KB) 

SONY HB-F5G0P 

3.5" 

80 

TRACK-DS 

160 

TRACKS 

(720 

KB) 

SVI 707 MSX 

5.25" 

40 

TRACK-DS 

80 

TRACKS 

(360 

KB) 

AVT DPF-550 

5.25" 

40 

TRACK-SS 

40 

TRACKS 

(180 

KB) 

SVI 838 X’PRESS 16 

5.25" 

40 

TRACK-DS 

80 

TRACKS 

(360 

KB) 

SS staat voor 'single 

sided' 

(enkelzijdig) 

en 

DS staat voor 

'doublé sided' (dubbelzijdig) 

. Alle diskettes 

moeten 

van 

het 

type 'DD' zijn (doublé 

density) . 

Van E.C.C. 

is ook nog een serie 

diskdrives in omloop. 

Ik ken 

de 

typenummers 

met 

en deze 

dn 

ves 


kunnen variëren van 18.0 KB -SS tot 720 KB DS. 

BEURSGROETEN 


Hierbij doen we de groeten aan alle mensen die we ontmoet hebben 
op de beurs in Utrecht van de HCC MSX gebruikers groep. Leuke 
beursen het was gezellig eens een babbel met onze lezers te 
maken. Wij zijn op deze beurs -door de heer Sala van MSX-INF0- 
uitgenodigd om aanwezig te zijn op de MSX-INF0 beurs. We doen 
ons best en als we komen lees je dit t.z.t. wel. Ook dan zijn we 
weer te vinden bij de stand van de MSX S0FTSH0P. 

Ik stort me weer snel op Gids nr. 7. 


Alfred Debels. 








COMPUTER GESTUURD LOOPLICHT 


De opbouw. 


Bij dit zelfbouwproject maken we een com¬ 
putergestuurd looplicht, dat wordt aange¬ 
stuurd via de printerpoort. Doordat de 
volgorde waarin de LED's (lichtgevende 
dioden) gaan branden wordt opgeslagen in 
het computergeheugen zijn zeer fraaie 
patronen te maken, die zonder solderen 
kunnen worden veranderd. 

De Z80 microprocessor (het centrale 
zenuwstelsel van de computer) communi¬ 
ceert met de buitenwereld via 1/0 poorten. 
Iedere 1/0 poort is voor te stellen als 
acht, door de computer bediende schake¬ 
laars. In een MSX-computer zijn de video- 
chip, de geluidschip en de chip die het 
toetsenbord uitleest, via 1/0 poorten met 
de Z80 verbonden. Ook de printer wordt 
vanuit twee 1/0 adressen bestuurd. Een van 
deze adressen bepaalt welk teken naar de 
printer wordt gestuurd, het tweede contro¬ 
leert of de printer gereed is om een nieuw 
teken te ontvangen. Om de Z80 de moge¬ 
lijkheid te geven alvast verder te gaan, 
wanneer de printer nog niet gereed is voor 
een volgend teken, wordt het nieuwe teken 
zolang opgeslagen in een buffer. 

Bij het looplicht maken we gebruik van 
deze buffer. De buffer heeft de mogelijk¬ 
heid acht LED's onafhankelijk van elkaar 
te besturen. Alleen vragen de LED's meer 
stroom dan de buffer kan leveren. Daarom 
zijn op het printje twee IC's 7400 
geplaatst; deze versterken de kleine 
stroompjes uit de buffer tot grotere 
stromen (ongeveer 10 mA), die de LED's 
voerden. Omdat de uitgangen van de IC's 
7400 5 volt leveren en de LED's op 1,7 
volt werken, zijn acht weerstanden van 330 
ohm aangebracht, die dit spanningsverschil 
opvangen. 

Nu de besturing van het looplicht. We 
kunnen geen gebruik maken van de instruk- 
tie LPRINT. Bij deze instruktie gaat name¬ 
lijk de tweede printer 1/0 poort contro¬ 
leren of een volgend teken mag worden ver¬ 
zonden. De printeruitgangen die dit con¬ 
troleren worden bij dit project echter 
niet gebruikt, zodat de toestemming voor 
een volgend teken nooit verschijnt en de 
computer eindeloos gaat wachten. De eerste 
printer 1/0 poort die de buffer vult, 
dient dus apart te worden aangestuurd. Dit 
gebeurt met de instruktie OUT (te verge¬ 
lijken met P0KE bij geheugenadressen). De 
eerste printer I/0-poort bevindt zich op 
1/0 adres &H91. Dit is niet vastgelegd in 
de MSX-norm, maar het blijkt voor alle 
MSX-computers die ik probeerde te kloppen. 
Deze buffer kunnen we nu vullen met een 
getal tussen 0 (alle LED's uit) en 255 
(alle LED's aan) met OUT &H91,0 of OUT 
&H9l,255. Het bijgevoegde programma maakt 
eveneens gebruik van deze 0UT- 
instruktles. Nu hebt U echter op het 
scherm het overzicht welke LED's zullen 
gaan branden. Dit programma is geheel te 
bedienen met een joystick (in poort 1) of 
met de cursortoetsen en de spatiebalk. 


Wanneer U niet over de mogelijkheid be¬ 
schikt het printje na te maken, kunt U ook 
gebruik maken van een stukje Vero-board. 
Het beste kunt U het type nemen met koper- 
eilandjes met elk drie gaatjes. 

Als eerste monteert U de acht 330 ohm 
weerstanden. Deze hebben elk een gemeen¬ 
schappelijke aansluiting met +5V. Aan de 
andere kant komen de acht LED's. Let U 
goed op dat U deze op de juiste manier 
aansluit; de langste aansluiting (anode) 
aan de weerstand. Nu kunt U testen of 
alles juist aangesloten is met een 4 1/2 V 
batterij. De + komt bij de gemeenschappe¬ 
lijke aansluiting van de weerstanden. Door 
de - tegen de kathode (korte aansluitpen) 
van de LED's te houden moeten deze oplich¬ 
ten. Is dit niet het geval dan is zo'n LED 
defect of verkeerd om aangesloten. 

De IC's 7400 kunt U het beste In IC-voet- 
jes plaatsen, dan worden ze niet onnodig 
verhit bij het solderen. Ook hier moet U 
weer goed opletten dat de IC's juist 
geplaatst worden; de uitsparing bovenop 
moet zich in dezelfde richting bevinden 
als op de tekening. Nu kunt U de aanslult- 
draden monteren; een + en een - draad voor 
de voeding. Die voeding kan bestaan uit 
een 4 1/2 V batterij of kan gehaald worden 
uit de joystickpoort. In het laatste geval 
moet U er wel 100% zeker van zijn dat U 
geen kortsluiting veroorzaakt! Nu gaan er 
nog 9 draden naar de printerconnector, nl. 
8 datalijnen (1 voor elke LED) en een - 
lijn. Controleer zeer goed of U deze 
draden op precies dezelfde manier monteert 
zoals aangegeven op de tekening. De scha¬ 
keling is nu klaar voor gebruik. Veel 
succes ermee! 



. ... ÉZZI 
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Beeldscherm: WIDTH 36 


3250 GOTO 3200 

3260 LOCATEl,S+3:PRINT" " 

RETURN 70 


0UT&H91,0 


10 SCREEN1,0:DEFINT A-Z 
20 CLEAR:DIM P(17),Q(17) 

30 FOR 1=0 TO 17:0 <I) = 1s NEXT 


40 GOSUB 2010:'sprite maken 
50 GOSUB 1010:'nieuw scherm opzetten 
60 PUT SPRITE 0,(30,30),15,0 
70 ON STRIG GOSUB 2050,2050,2050: FO 
R 1=0 TO 2:STRIG(I)ON:NEXT 
80 PUT SPRITE 0,<XS-1,Y5-1),1 ,0 
90 A=STICK(0): ÏF A=0 THEN A=STICK(1 
):IF A=0 THEN 90 

100 IF A=1 OR A=2 OR A=8 THEN YS=YS- 
8:IF YS<24 THEN YS=24 

110 IF A=2 OR A=3 OR A=4 THEN XS=XS+ 
16:IF XS>208 THEN XS=20B 
120 IF A=4 OR A=5 OR A=6 THEN YS=YS+ 
8: IF YS> 176 THEN YS=176. 


130 IF A=6 OR A=7 OR A=B THEN XS=XS- 

16:IF XS<64 THEN XS=64 

140 FOR 1=1 TO 50 :NEXT 

150 GOTO 80 

160 ? 

1000 'Nieuw scherm opzetten 
1010 CLS:KEYOFF:WIDTH32 
1020 PRINT"Periode Lamp 

Ti jd" 

1030 PRINT" 1 2 3 4 5 6 7 B" 

1040 PRINT 

1050 FOR 1=1 TO 18 

1060 PRINTUSING" ## . . . 

. 1 SEC" 


1070 NEXT 

1080 LOCATE 8,22:PRINT"> NIEUW > 

RUN" 

1090 XS=64:YS=24 
1100 RETURN 
1110 ' 

2000 'sprite maken 
2010 RESTORE 2040: A*="" 

2020 FOR 1=1 TO 8;READ B:A*=A*+CHR*( 
B):NEXT 

2030 SPRITE*(0>=A*:RETURN 

2040 DATA 255,129,129,129,129,129,12 

9,255 

2050 ' 

3000 'op vuurknop gedrukt 

3010 IF XS=i92 OR YS=168THEN RETURN 

3020 IF YS= 176 THEN 3130:'nieuw of r 

un 

3030 X=XS/8:Y=YS/8:T=(YS-24)/8; U=7-( 
XS-64)/16 

3040 P=BASE(5)+X+Y*32:VP=VPEEK <P> 
3050 IF XS=20B THEN 3110 
3060 IF VP=7 THEN VPOKE P,28:P<T)=P( 
T) +1 NT (. 5+2’^U) 

3070 IF VP=2BTHEN VPOKE P,7 :P(T)=P( 
T) — I NT (. 5+2'"U ) 


3080 RETURN 
3090 ' 

3100 'tijd veranderen (1-9 sec) 

3110 VP=VP+1:IF VP=58 THEN VP=49 
3120 VPOKE P,VP:Q(T)=VP-4B:RETURN 
3130 IF XS=64 THEN RETURN 20 
3140 IF XSO160 THEN RETURN 
3150 ' 

3160 'LED's volgens diagram laten br 

anden 

3170 BEEP 

3180 ON STRIG GOSUB 3260,3260,3260 
3190 S=0:LOCATE1,20:PRINT" " 

3200 OUT &H91, P (S) 

3210 LOCATE 1,5+3: PRINT"»-" 

3220 LOCATE 1,S+2:PRINT" " 

3230 FOR 1=1 TO 1000#Q(S):NEXT 
3240 S=S+1:IF S=18 THEN 3190 


“Printer co nnêct o ft 



30'/SHCU POORT 
4 2 3 4 5 



é 1 8 g 





LED 



dl - d8 



o 5V 


+ 


6 


n rinnnnnn 


□3Ud 

m n°i : 

dj lil Lil |_| lLiej lil UI 


1 




74 (6^6 


Benodigde onderdelen: 

8 x weerstand 330 OHM 
p v t en 

2 x IC 74LS00 (of 7400) 

1 x MSX-printerconnector 

Evt. 2 x 14-pens IC-voetje 

De lange pen van de LED is de Anode 
De korte pen is de Kathode 

De 5 Volt kan van de joystickpoort 
gehaald worden. 


Mare Spierenburg 
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STARWARS (3 Velden) 



Beeldscherm: WIDTH 36 


1 ’ — STAR WARS — 

3 ? 

4 ? NICHEL JANSSEN 

5 =* <c) 1986 MSX-Gids 
7 * 

0 > _______ 

10 COLDR 15,1,1:SCREEN2,2 
20 DEFïNTA-Z:OPEN "grp:"AS#1 
30 HPS="STAR“W" 

40 DIN LA(3),PO(3),YA(4),SN(3),TE*(1 
0) 

50 FOR A=1TO70;PSET<RND<1)*255,RND<1 
)#130),4:NEXT:LINE(69, 0) — (165, 190) , 1 
BF 

60 CIRCLE(120,41),42,15,- 1,3.1,.9 
70 DRAW”bm80,38; g5m~15, 80; g5bml60,38 
;f5m+15, 80T5;bmi13,65 g25e2r 60-f 2h251 
15bm96 ,88u5e5d10r5ul5e5d20r5u23r6d2 

3 

80 DRAW M r5u23-f 5d 18r5ul 3-f 5d7 
90 LINE <114,2 )-(125,50), 15,B 
100 CIRCLE<96,52),13,15,, ,.4 
110 CIRCLE<142,52),13,15,,,.4 
120 CIRCLE <96 ,42),18, 15,- ï,3,„6 
130 CIRCLE<143,42),18,15,.1,3,.6 
140 DRAW'bm 0,171c15r55e3u6h315h3u5e 
3r1Bd23u23 rl4 g3d20u10r10d10u20h313 
r23 -f3d7g31BL.il2d22ul0r9f3d7 
150 DRAW 11 bm 126,148 d20f3r5e3*f3r5e3u 
20d20f 3r8 u20e3r 6-f 3d 1011 lr 1 Idl0r8 

u23r9-f 3d7g319r 9-f 3d8r 15 e3u5h315h3u 
5e3r40 h3-f 3g3 

160 PAINT <96,52),15:PAINT<142,52),15 
170 PAINT <110,6),15:PAINT <127,6),15: 
GOSUB 7000 

180 FOR A=0TO2rIF STRIG <A)THEN JN=A: 
GOTO 190ELSENEXT:GOTO 180 

190 VDP(1)=VDP <1)—64 
200 RESTORE:CLS 
210 V1=3:SC=0:LE=1 

220 SPRITE*(15)=CHR* < 24)+CHR*(60)+CH 
R*(60)+CHR* < 24) 

230 SPRITE* < 20)=CHR* < 255)+CHR*< 255) 

240 FOR A=1T09:FOR B=1 TO 32 

250 READ C: B*=B*+CHR*(C):NEXT 

260 SPRITE* < A)=B*:B*=””:NEXT 

270 FDR A=0TO8:READ TE*<A):NEXT 

280 COLOR 15,1,1 

290 LINE(0, 0) — (255,17),4,BF 

300 LINE <0, 140)-<255,191),4,BF 

310 LI NE (10, 145) - < 15, 185) i 1, BF 

320 LINE<20,145)-<25,185),1,BF 


330 FOR A=1 T06:ONA GOSUB340,360,400, 

430,510,530:NEXT:GOTO 560 

340 LINÈ<35,145)-<115,155),1,BF 

350 PRESET <40,146):PR ï NT#1,USIN6"Hig 

h ####";Hl:RETURN 

360 LINÈ<35,160)-<115,170),1,BF 

370 PRESET <40,161):PR ï NT # 1,USING"Sc o 

re####”;SC:REtURN 

380 LINÈ <50,4)-<200, 12),1,BF 

390 PRESET<60,5):PRINT#1,TE*<IN):RET 

URN 

400 LINE <35,189)-<240,180) ,1,BF 
410 LINE<80,185)-<235,184),6,BF 
420 FUEL=236:PRESET<40,182):PRINT#1, 
"Fuel":RETURN 

430 LINE <130,145)-<200, 155),1,BF 
440 PRESET <140,146):PR ï NT#1,HP*:RETU 
RN 

450 PUT SPRITE 19,(19,140+<Y/3 )),6, 

15 

460 PUT SPRITE 20,(9,186-<X/4)ï,6,15 
:RETURN 

470 GH-GH+1:IF GH>8 THENGH=0:FUEL=FU 
EL-1 

480 LINE <FUEL,185)-(FUEL+4,184), 1,BF 
490 IF FUEL<79 THEN IN=1:GÓSUB 430:G 
OTO 790 
500 RETURN 

510 LINE(130,160)-<200,170),1,BF 
520 PRESET <140,161):PRÏNT#1,USING"Le 
vel##”;LE :RETURN 

530 LINE<210,145)-<250,170),1,BF 
540 PRESET(218,146):PRÏNT#1,"Left” 

550 PRESET<218,161):PRINT#1,VI:RETUR 
N 

560 VDP <1)=VDP<1)+64:GOSUB7000 
570 YA <1)=70:YA < 2)=70:YA < 3)=50 
580 LA <1)=60:LA < 2) = 160:LA <3)=250 
590 X=35:Y=60:YU=<LE#4):Z=0 
600 SN <1)=-YU:SN <2)=YU:SN(3)=YU 

610 IN=0:GDSUB 380:ON SPRITE G0SUB78 
0:SPRITE ON 

611 IF LE>5THEN VI=0sIN=8:GOSUB 510: 
GOTO800 

612 SOUND 0,255:SOUND1,200:SOUNDS,15 

613 SOUND 2,200:S0UND3,250:S0UND9,15 

614 SOUND 12,17 :S0UND7,80:SOUND13,2 

615 FORA=lTO20:PUTSPRITÈA,(-32,-32); 
NEXT:LINE(0,20)-<255,140),1,BF 

620 FOR A=1T03 

630 PUT SPRITE A+l, <LA <A),19),A+3,3 
640 PUT SPRITE A+4,<LA<A),122),A+3,2 
650 PUT SPRITE A+7,<LA<A)+4,YA<A)),A 
+3, 4 

660 YA < A)=YA < A)+SN < A):IF YA<A)<450RY 
A(A)>97 THEN SN<A)=-SN(A) 

670 LA<A)=LA<A)-YU:IF LA<A)<-32 THEN 
LA<A)=255:SC=SC+10:GOSUB 360 
680 G=5TICK <JN):Z = Z + 1:IFZ>500THEN930 
690 PUT SPRITE 0,<X,Y),15,1:GOSUB 45 
0 

700 IF GOl AND G<>3 AND G< >5 AND G< 

>7 THEN Y=Y+2:IFY>124THEN790ELSEGOTO 
730 

710 ON G GOSUB 740,,750,,760,,770 
720 GOSUB 470 
730 NEXT:GOTO 620 

740 Y=Y—4:IFY<16THEN790ELSERETURN 
750 IFX<160THENX=X+4:RETURNELSERETUR 
N 

760 Y=Y+1:IFY >124THEN790ELSERETURN 
770 IFX>20THENX=X—2:RETURNELSERETURN 
780 IN=2 
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790 BEER:SOUNDB,15:Z=0:SPRITE GFF:GO 
SUB 380:F0RA=YTÖ125STEP3: SOUND0,RND< 
1)*255:PUTSPRITE 0,<X,A>,15,1SPUT SP 
RITE 19, <19,140+ <A/3)>,6,15:NEXT:PUT 
SPRITE 0,(-32,-32):PUt SPRITE 16, <X 

At g g 

800*BEEP:LINE(0,20)-(255,139),1,BF 
810 FORA=0TO17:PUT SPRITE A,(-32,-32 
):NEXT 

820 :FORA=1TO300:COLOR,,10:COLOR,,6: 

NEXTsCOLOR, , ÜGOSUB 410 

830 VI=9I—1:IF VI<0 THEN 850 

840 GOSUB 530:GOTO 570 

850 IF SOHI THEN GOTO 1160 

860 PUT SPRITE 21,(-32,-32):LINE(0,2 

0)-(255,139),1,BF 

870 PRESET(80,70):PRINT#1,"GAME OVER 

ll 

880 PRESET<80,80)SPRINT#1,"TRY AGAIN 

890 FOR A=1T0255:PUT SPRITE 0,<A,60) 
,15,1: 

900 IF STRIG(0)OR STRIG(1)THENVDP(1) 
-VDP(1)-64:GOTO200 
910 NEXT:GOTO 890 
920 GOSUB 280 

930 FORA=1TD19:PUT SPRITE A,(-32,-32 
) : NEXT 

940 Z=0:X=40:Y=50:MO=LA(3) 

950 LINE(0,139)-(255,140),10,BF 
960 G0SUB510:1N=3:GOSUB380: FG=0 
970 YF=INT(RND(1)*90)+20:XF=255 
980 IF FG=0 THEN TIM=INT(RND<1>*20)+ 
5:FG=0 

990 IF XF<-32 THEN 970 
1000 PUT SPRITE 7,<XF,YF),14,7 
1010 MO=MO-YU:IF M0<-32 THEN M0=255 
1020 FG=FG+1: IF FG>TI MTHENFG=0 : LINE ( 
MO,123)-(MO—40,Y),15:LINE(MO,123)-(M 
0-40,Y),1:IF X<MO-40ANDX+16>MO—40THE 
N7B0 

1030 FOR A=1T02 

1040 PUT SPRITE A+l,(LA(A),122),10,9 
1050 LA<A)=LA(A>-YU:IF LA(A)<-32 THE 
N LA(A)=255 

1060 IF A=1THEN PUT SPRITE 5,(MO,124 
) , 14,6 

1070 IF A=2THEN PUT SPRITE 5,(MO,124 
),14,5 

1080 PUT SPRITE 0,<X,Y),15,1 

1090 G=STICK(JN):GOSUB 450 

1091 Z = Z +1:IF Z>400 THEN 1310 

1100 IF SOI AND G< >3 AND G< >5 AND G 
< >7 THENY=Y+2:IFY >124THEN790ELSEGOTO 
1130 

1110 ONGGOSUB 740,,750,,760,,770 
1120 GOSUB 470 

1130 XF=XF-YU:IF STRIG(JN) ANDG=0THEN 
FUEL-FUEL—1:GOSUB 480:LINE(X +16,Y+6) 
-(X+70,Y+6),15:LINE(X+l6,Y+6)-(X+90, 
Y+6),1:IFY>YF-4ANDY<YF+14ANDX+90>XFA 
NDX< XFTHENSC=SC+15:GOSUB 360:VB=VB+1 
* XF--32 

1140 NEXT:GOTO 990 
1150 BEEP: 

1160 HI=SC:BEEP:GQSUB340 
1170 IN=5:GOSUB380 

1180 A$="/\ABCDEFGHIJKLMNOPQRSTUVWXY 
Z1234567890 abcde-f ghi jklmnopqrstuvwx 
yz.Cl/!ABC":V=16:HP*="" 

1190 LINE <90,60) — (140,70),1,BF 

1200 PRESET(95,61):PRINT#!,MID$<At,V 

,5) 

1230 G=STICK < JN)sIFG=7THENV=V+1:IF V 
>69THENV=2 

1240 IFG=3THENV=V-1:IFV< 2THENV=69 
1250 IF G=5ANDLEN(HPt)>0 THEN HPt=LE 
FT$(HP^,LEN(HP$)-1):GOSUB 430 


1260 IF INKEY$=CHR$(13)THEN860 
1270 IF STRIG(JN)ANDLEN(HPS)<7THEN H 
R*=HP$+MIDS(At,V+2,1):6OSUB430: 

1280 PUT SPRITE 21 ,( 109,68) , 8 , 20 
1290 IF G=0 THEN 1200 
1300 GOTO 1190 

1310 X=20:Y=60: Z=0s IN=4:BO=0:G0SUB38 
0:0=19:XB=-32:R=—32:CO=0 

1311 FORA=0TO20s PUTSPRITEA, (-32,-32) 
:NEXT 

1320 LINE <57,139)-(76,120),10,BF:COL 
0R1:PRESET(60,124):PRÏNT#1, H FL”:COLO 
R15 

1330 LA=45:FORA=50TO180STEP30 

1340 YA(Z)=A+15:Z=Z+1 

1350 LINE(A,21)-(A+3,138),15,BF 

1360 B=INT(RND <1)*80)+20 

1370 LINE < A,B) — < A+3,B+20),1,BF:NEXT 

1380 LINE<245,139)-(205,100),14,BF:C 

IRCLE <225,100),10,14:PAïNT <220,99),1 

4 

1390 FORA=209TO240STEP3 

1400 FORB=104TO135STEP3:PSET <A,B),1 

1410 NEXT:NEXT 

1420 PUT SPRITE 15,<R,V),4,15 

1430 PUT SPRITE 1,(LA,O),15,4 

1450 0=0+SN: IF O>120 THENSN=-LE 

1460 IF 0<22THENSN=LE 

1470 IF X-4>LAANDLA<150THENLA=LA+30 

1480 V=V-LE:IF V<21 THEN V=130:T=(RN 

n ( i \ 44)■R=YA(T) 

1490 IFX>150ANDCO=0 THEN IN=7:C0=1:G 
OSUB380 

1500 IF CO=0 THEN GOSUB450 
1510 PUT SPRITE 0,(X,Y),15,1 
1520 IFPOINT < X + l, Y+4) < MORPOINT < X+9, 
Y+4)< >10RP0INT(X + 10,Y+4)<>10RP0INT(X 
+ 16, Y+4X >1THEN 780 

1530 IFPOINT(X,Y+16)=10ORPOINT(X+14, 
Y+16)=10THEN5C=SC+60:LINE<55,139)-<7 
8,100),1,BF:G0SUB410:GOSUB360 
1540 IF STRIG(JN)ANDBO=0THEN B0=Y+16 
: BX = X 

1550 IF BD>20ANDBO<135THEN BO=BO+B:I 
F B0>135THEN B0=135 
1560 PUT SPRITE 10,<BX,BO),6,15 
1570 IF POINT <BX+4,BO+4) = 14THENSC=SC 
+200:LINE(245,139)-(204,50),1,BF:BO= 
135:GOSUB360 

1580 IF X >230 THEN LE=LE+1:G0SUB510: 
GOTO 570 

1590 G=STICK(JN):Z=Z+1:IFZ>500THEN61 
0 

1600 IF G=3 THEN X=X+2:GOTO1630 
1610 IF GOl AND G<>3 AND G< >7ANDG< > 
5THEN Y=Y+2:IF Y>124THEN790ELSEGOTO1 
420 

1620 ON G GOSUB 740,,750,,760,,770 
1630 GOSUB 470 
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1640 GOTO 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 ’ 

1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 31 
1750 DATA 
1760 DATA 
1770 DATA 
4,244 
1780 DATA 
1790 * 

1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
1840 ' moon-beast 
1850 DATA 0,60,222,60,5,3,1,0 
1860 DATA 1,1,2,1,7,0,0,0 
1B70 DATA 0,0,0,252,170,B6,170,252 
1880 DATA 4,12,8,12,4,28,0,0 
1B90 ' moon-beast 2 
1900 DATA 0,0,0,0,1,59,221,57 
1910 DATA 1,3,2,3,1,7,0,0 
1920 DATA 0,0,0,252,170,86,170,252 
1930 DATA 4,4,8,4,28,0,0,0 
1940 9 jet-cruiser 
1950 DATA 0,0,0,7,31,103,243,127 
1960 DATA 0,0,0,0,0,0,0,0 
1970 DATA 0,0,3,253,249,255,252,248 
1980 DATA 0,0,0,0,0,0,0,0 
1990 ’ ontpioting 

2000 DATA 4,68,32,0,0,192,0,1,0,192, 
0,0,32« 68,4,0,64,68,8,0,0,6,0,0,0,6, 
0,0,8,68,64,0 
2010 ' berg 

2020 DATA 0,0,0,0,0,0, 1,0 
2030 DATA 0,1,7,15,159,223,255,255 
2040 DATA 0,0,0,96,224,240,240,248 
2050 DATA 248,248,252,252,254,254,25 
5,255 

2060 DATA LASER ATTACK 
2070 DATA NO MORE FEUL 
2080 DATA VIPER CRASHED 
2090 DATA MOON BEAST 
2100 DATA THE ENEMY BASE 
2110 DATA NEW HIGH SCORE 
2120 DATA BONUS VIPER !! 

2130 DATA COMPUTER DEFECT 
2140 DATA L EVFl *5 f 1 

7000 BEEP:PLAY"v15r 4r 4o518dd12gr 4o61 
8o6ddl 2go41 4e-f #ga’*, "v 15o31 Bddl 2g. o21 
Bddl2g.o31Bdd14d18dd14dIBdd ",”v15o4r 
4r41Bddl2gr4o518ddl2go314gab-o4c 
7010 PLAY ,, 04L2G05L2DL8C04BA05L4G. DL8 
C04BA05L4G.DL8C04B05C04L4A,","03L4GF 
#EDC02BAG03C02BA603FL8D02A03D03D","O 
3L2B04GL4E.B.GE.B.GF.D 
7020 PLAY"E.L8E05C04BAGGABAEL4F#LBDD 
L4E. L8E05C04BAG05D04AL2AL8", "V7L2DL4 
DDL2DL4DDL2DL4D02B-03L8D02DL4DR4”,"O 
3L2G04ECL4AR4L2G04EL4FL2Dr4 
7030 IF PLAY <0)THEN 7030 ELSE RETURN 


1420 

0,0,0,0,192,255,255,255 
120,16,63,0,0,0,0,0 
0,0,0,0,192,32,254,255 
62,96,192,0,0,0,0,0 

0,0,1,3,3,7,63,96,95,95 
95,95,95,95,127,127,0,0,0 
128,128,192,248,12,244,244 
244,244,244,244,252,252 

127,127,95,95,95,95,95,95 

96,63,7,3,3,1,0,0 

252,252,244,244,244,244,24 

12,248,192,128,128,0,0,0 

0,6,1,2,4,2,1,2 
4,2,1,2,4,2,1,6 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
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TORENS VAN GEDULD 


TORENS VAN GEDULD (TOWERS OF HANOI) 


Het spel 'TORENS VAN GEDULD' -beter bekend 
als TOWERS OF HANOI en voor vrijwel elke 
computer al geschreven- is een simulatie 
van de ringen van Hanoi. Zo'n drieduizend 
jaar geleden legde een priester in de 
tempel van Hanoi ongeveer duizend steeds 
kleiner wordende ringen om een stok. Hij 
plaatste naast deze stok nog twee stokken 
en gaf zijn volgelingen de opdracht alle 

ringen naar een van de andere stokken te 
verplaatsen met de beperking dat er maar 1 
ring per dag verplaatst mocht worden. Als 
dit de enige beperking zou zijn, zou het 
neie karwei binnen 3 jaar geklaard zijn 
maar he!aas is er nog een kink in de 
kabel: er mag nooit een grotere ring op 
een ring van kleiner formaat gelegd worden 

zodat de hulp van de derde stok hard nodig 
is. 

Met drie ringen is het minimale aantal 
beurten 7, met vijf ringen al 32 en met 
zeven (zoals bij dit programma) zijn het 
er al 127. Dit is uit te rekenen door het 
dubbele aantal beurten met 1 ring minder 
plus 1 te nemen. Dus met 1 ring 0+1-1, met 
2 ringen 2xl+l=3, met 3 ringen 2x3+l“7 
enz. Dit is typisch iets om door de 
computer te Laten doen met behulp van het 
volgende, simpele, programmaatje: 

10 BEURTEN = 0 

20 FOR RING - 1 T0 200 

30 BEURTEN - BEURTEN *2+1 

40 PRINT "Ringen :";RING 

50 PRINT "Beurten :”;BEURTEN 

60 NEXT RING 

Na het intikken en RUNen zal te zien zijn 
dat het aantal beurten al snel oploopt en 
reeds na 35 ringen de hoogte van de 
Nederlandse staatsschulden passeert. 

Tekst: Lex v.d. Hondel 
Programma: Ad Schouwenaars 



10 * 

20 51 
30 ’ 

40 ’ 

50 - 
60 •* 

70 ” 

80 DEFUSR1=342: > INGAVEBUFFER LEEG 
90 DEFUSR»144:“MUZIEK UIT 
100 CLEAR 200 
110 DEFINT A-Z 

120 DIM A<3,7>,VP(3),X(3),Y<7> 

130 SW=0 

140 GOSUB 1380:U=USR(0) 

150 ’ 

160 SCREEN2,2,0:KEYOFF:COLOR11,6,1 
170 X=1 

180 FOR 1=1 TO 7:X=X+2:A(l,I)=X:NEXT 

190 FOR 1=1 TO 7:A(2,I)=0:NEXT 

200 FOR 1=1 TO 7:A(3,I)=0:NEXT 

210 VP(1)=0:VP < 2)=7:VP < 3 )—7 

220 X <1)=63:X <2) = 119:X(3)=175 

230 Y <1)=78:Y <2)=94:Y(3) = 110:Y (4)=12 

6:Y(5)=142:Y(6)=158:Y(7)=174 

240 ? 

250 IF SW=0 THEN GOSUB 1330 

260 PLAY "V12L6401FGFG02FAFG03FGFG04 

FAFG05FGFGD6FAFG" 

270 GOSUB 1180:ZZ=0 
280 CLS 

290 PRESET(5,7),6:COLOR 11:PRINT#1," 
TORENS VAN GEDUL D":PRE 
SET(6,7),6:COLOR 11:PRINT#1,"T ORE 
N S V A N GEDULD" 

300 PRESET(68,45),6:COLOR 11:PRINT#1 

, "1 2 3":COLOR 15 

310 LINE<70,75)-(70,191),10 

320 LINE <126,75) — (126,191),10 

330 LINE(182,75)-<182,191),10 

340 LINE < 0,19) — (255,19), 10 

350 LINE < 0 ,20)-< 255,20),10 

360 LINE <0,0)-<255,191),10,B 

370 LINE <1,1)-<254,190>,10,B 

380 BX=63:BY=174 

390 FOR SN=15 TO 3 STEP -2 

400 PUT SPRITE SN,(BX,BY),SN,SN 

410 BY=BY~16:NEXT 

420 ’ 

430 ? INVOER VAN - NAAR 
440 * 

450 U=U5R1(0):PRESET(20,22),6:COLOR 
1 

460 PRINT#1,"VAN TOREN NR.":PRESET(1 
30,22),6:VS=INPUTS(1):PRINT#1,V* 

470 IF VS<"1" OR VS>"3" THEN 530 
480 PRESET(12,33),6 

490 PRINT#1,"NAAR TOREN NR.PRESET( 
130,33),6:NS=INPUTS(1);PRINT#1,NS 
500 IF NS<"1" OR NS >"3" THEN 610 
510 GOTO 710 
520 ? 

530 FOR W=0 TO 200:NEXT:PLAY "V1202L 
16GFEGFE" 

540 LINE(20,22)-(140,32),6,BF 

550 PRESET(20,22),6 

560 PRINT#1,"FOUTIEVE INGAVE" 

570 FOR W=0 TO 500:NEXT 
580 LINE(20,22)-(140,32),6,BF 
590 GOTO 450 
600 ? 

610 FOR W=0 TO 200:NEXT:PLAY "V1202L 
16GFEGFE" 

620 LI NE (12,33) — (140,43) , 6, BF 
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INTRODUCTIE-SCHERM 


630 PRESET(20,33),6 

640 PRINT#1, M FOUTIE VE INGAVE" 

650 FOR W=0 TO 500!NEXT 
660 LINE <12,33)-(140,43),6, BF 
670 GOTO 480 
680 ' 

690 51 VERPLAATSEN VAN DE SCHIJVEN 
700 * 

710 FOR W=0 TO 250!NEXT 

720 LINE <12,22)-(140,43), 6,BF 

730 V=VAL < V*) : N=VAL < IM*) 

740 iF V=N THEN 1080 

750 EL=VP <V)+1!EN=VP <N)+1 

760 IF EL>7 THEN 10B0 

770 IF EN>7 THEN 790 

780 IF A <V,EL)>A <N,EN) THEN 1080 

790 IF A<V,EL)>A(N,VP(N)) THEN 810 

800 IF A < V,EL)< A(N,VP <N)) THEN 820 

810 IF A <N,VP(N))=0 THEN 820 ELSE 10 

80 

820 SN=A(V,EL) 

830 SWAP A <V,EL),A <N,VP <N)> 

840 GOSUB 940 
850 ZZ=ZZ+1 
860 VP<V)=VP<V)+1 
870 VP <N)=VP(N)-1 

8B0 IF A<1,7)=0 AND A<3,7)=0 THEN 15 
60 

890 IF A < 1,7)-0 AND A<2,7)=0 THEN 15 
60 

900 GOTO 450 
910 ' 

920 ’ VERSCHUIVEN 
930 " 

940 VS-N-VïIF VS>0 THEN VS=1 ELSE VS 
=-l 

950 FOR YY=Y(EL) TO 39 STEP-1 
960 PUT SPRITE SN,(X<V),YY),SN,SN 
970 NEXT 

980 FOR XX-X(V) TO X<N) STEP VS 
990 PUT SPRITE SN, <XX , 39),SN,SN 
1000 NEXT 

1010 FOR YY=39 TO Y(VP<N)) STEP 1 
1020 PUT SPRITE SN,<X<N>,YY),SN,SN 
1030 NEXT!PLAY "V7N40" 

1040 RETURN 
1050 51 

1060 ' ONGELDIGE ZET 
1070 31 

1080 PLAY "VI202L16GFE6FE" 

1090 LINE <12,22)-<140,43) , 6,BF 

1100 PRESET<20,33),6 

1110 PRINT#1,"ONGELDIGE ZET!" 

1120 FOR W=0 TO 500!NEXT 
1130 LINE<12,22)-(140,43),6,BF 
1140 GOTO 450 
1150 ' 

1160 ’ SPRITES/SCHIJVEN OPBOUWEN 
1170 ? 

1180 RESTORE 1280 

1190 FOR SN=15 TO 3 STEP-2 

1200 A*="":READ C 

1210 FOR K=1 TO 16:A*=A*+CHR*<C):NEX 
T K 

1220 B*="":READ C 

1230 FOR K=1 TO 16:B*=B*+CHR*<C):NEX 
T K 

1240 SPRITE*(SN)=A*+B* 

1250 NEXT SN 
1260 RETURN 
1270 ’ 

1280 DATA 255,254,127,252,63,248 
1290 DATA 31,240,15,224,7,192,3,128 
1300 ’ 

1310 31 OPENEN FILE SCHERM 
1320 ' 

1330 OPEN "GRP!" AS#1:SW=1 
1340 RETURN 


1350 * 


1360 ’ 

1370 ’ 

1380 SCREEN 0:COLOR 11,6:WIDTH 40!KE 
YOFF 

1390 LOCATE 1,2!PRINT"***#*##**#**#* 

* ^ dLr dL df Juf iAr ^ -jJj- ij# 'ijL* d* ^JLp ^ ^ üf Üb* | | 

'1' ■*r' V* 'w*' -flP •flr* 'W® ^P -^P 


1400 LOCATE 1,3:PRINT"* TORENS 
VAN GEDULD*" 

1410 LOCATE i,4:PRINT*************** 
He********************* 

1420 PLAY "VI2G4L8CDEFCAFEGEDAGCAFE0 
5CDC" 

1430 PRINT:PRINT 

1440 PRINT "Probeer een nieuwe toren 


op te bouwen door telkens een sch 
ij-f te verplaatsen. "!PRINT 
1450 PRINT "LET OPseen schijf mag ec 
hter NIET op eenkleinere schijf word 
en geplaatstPRINT 

1460 PRINT "Om een schijf te verplaa 
tsen worden de nummers van de toren 


£ navr AAnd # 11 * PR I NT 

1470 PRINT " VAN TOREN NR. >< - NAAR 
TOREN NR. x":PRINT 

1480 PRINT "Slechts de bovenste schi 
jf van een torenkan verplaatst worde 
n. " 

1490 PRINT:PRINT " VEEL SUCCES! 


i *• 


1500 PLAY "V1204L8CDEFCAFEGEDAGCAFE0 
5CDC" 

1510 PRINT " 

<RETURN>" 

1520 Q*=INKEY*ïIF □*="" THEN 1520 EL 
SE RETURN 
1530 ’ 

1540 “ TOREN GEHEEL VERPLAATST 
1550 ’ 

1560 SCREEN 2 

1570 IF SW=0 THEN OPEN "GRP:" ASttlsS 
W= 1 

1580 PLAY "SI1M2500O4LBFGAGAB-L1605F 
GAGAB—LB04CDEDEF" 

1590 LINE(0,0) — < 255,191),8,BF 
1600 LINE(6^6)“(249,185),15,BF 
1610 LINE <12,12)”(243, 179),4,BF 
1620 PRESET<75,40),4:C0L0R 3 
1630 PRINT4M ,"PROFICIAT !!" 

1640 PRESET<76,40),4 

1650 PRINT#1,"PROFICIAT !!" 

1660 PRESET <35,B0),4!COLOR 7 

1670 PRINT#1,"Ü BENT ERIN GESLAAGD D 

E" 

1680 PRESET<35,100),4 

1690 PRINT#1,"TOREN TE VERPLAATSEN I 
N" 

1700 PRESET<100,120),4:COLOR 15 

1710 PRINT#1,ZZ 

1720 PRESET<101,120),4 

1730 PRINT#1,ZZ 

1740 PRESET<95,140),4:COLOR 7 

1750 PRINT#1,"ZETTEN" 

•1760 PLAY "SI1M2500O4L8FGAGAB—L1605F 
GAGAB—LB04CDEDEF"!FOR W=0 TO 1500!NE 
XT 

1770 PRESET<30,160),4:COLOR 15 
1780 PRINT#1,"NOG EÈNS SPELEN? <J/N) 
":PRESET <210,160),4:I*=INPUY*<1>:PRI 
NT#1,I * 

1790 IF I$="J" THEN 160 ELSE IF I*=" 
N" THEN 1830 ELSE 1770 
1800 ’ 

1810 * EINDE VAN HET SPEL 
1820 ? 

1830 SCREEN 0:WIDTH 40:COIOR 15,1,1 
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1840 PLAY "S4M1200O3L16AAGFEDFGADED" 
1B50 LOCATE 15,10ïPRINT "TOT ZIENS"! 
FOR W—0 TO 850!NEXT' 

1860 CLS 
1B70 END 
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OOK VAN DEZE EXTRA EDITIE VAN DE MSX 
GIDS. ZIJN WEER DISKETTES EN 
CASSETTES VERKRIJGBAAR. 

DE DISKETTES ZIJN ALLEEN LEVERBAAR 
'IN BO-TRACK <SINGLE SIDED) 
FORMAAT; ZOWEL 5.25 ALS 3.5 INCH. 

DE PRIJS VAN DE 3.5 VERSIE IS f 25,“ 
DE 5.25 VERSIE KOST f 15,- EN DE 
CASSETTES KOSTEN EVENEENS f 15,“. 


************************************ 

HET BESTELNUMMER IS XOl. 

; 3* 4c i* 4c 4c 4c 4c 4c 4c 4c 4 4c 4c 4 4c 4c 4c 4c 4 c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 


BESTELLEN DOOR OVERMAKING VAN HET 
BEDRAG OP GIRO 909515 T.N.V. 
A.DEBELS TE AMSTERDAM. 

VOOR BELGIE IS DE PRIJS BFR. 470 
VOOR DE 3.5 VERSIE EN BFR. 2B0 VOOR 
DE 5.25 VERSIE EN DE CASSETTE. DIT 
BEDRAG KAN OVERGEMAAKT WORDEN OP 
REK. NR. 235-0430464-87 BIJ DE 
GENERALE BANKMIJ, TE HASSELT T.N.V. 
J.HERPS, POSTBUS 10252, 1001 EG 
AMSTERDAM. 


Inl. TEL: O20-320807 
(tussen 12.00 uur en 20.00 uur) 


r 




*********************************** 
* DRUKFOUTJE IN ’WURZLE’ * 

*********************************** 
In de listing van WURZLE in MSX- 
Gids nr.6 staat bij sommige bladen 
in regel 490 GOSUB 1710. Dit moet 
zijns GOSUB 1910 
Even veranderen dus!!! 
ft ïjE "Jjt ïjjE 


MSX SOFTSHOP DATABANK**” 


= = =3 






De MSX SOFTSHOP heeft een sinds kort 
een databank waarin de gehele 
catalogus is opgenomen. Tevens kan 
in deze databank informatie inge¬ 
wonnen worden over nieuwe software- 
titels en nieuwe producten. Deze 
databank is te bereiken via het 
telefoonnummer van de winkel en kan 
daarom alleen na 18.00 gebeld 
worden. 


‘^1^* 

* MSX SOFTSHOP DATABANK * 

* * 

* TEL*. 020-123206 * 

iL feJLj LU &jLp kMjb- uLr r%lj ijüw %Ju uLè iJL, .Lp >1 j JL. ^jLp, iJL, 

T ™ * * T * * * *1* T T T * * T T T * * *r *T T ® T 


ALLEEN VAN 18.00 UUR TOT 09.00 UUR 
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M AXIT 


10 REM MAXIT 
20 REM BY A.v.SICHEM 
30 REM FOR MSXgids 
40 JD=0 

50 SCREEN 0:COLOR 1,10:WIDTH 40!KEY OFF 
60 DEFINT A-Z:DATA 49,51,53,54,56,58,60,61 
70 FOR N= 0 TO 7:READ NT(N)!NEXT 
80 DIM BD(7,7),AV(64> 

90 CLSs LOCATE 11,3sPRINT " HET SPEL MAXIT" 

100 PRINTsPRINT "WILT U UITLEG? <J/N)";:GOSUB 1450-.PRINT 

110 IF KS*= "J M OR K5*="j" THEN GOSUB 1180 

120 LOCATE0,8:PRINT "1 OF 2 SPELERS ? GOSUB 1450 

130 PRINT KS*:NP= VAL <K5*):PRINT 

140 IF NP= 1 THEN 180 

150 IF NP< > 2 THEN 120 

160 INPUT " WAT IS UW NAAM # 1 ";PI*: PI*=LEFT*<P1$,7):BEEP:PRINT 

170 PRINT sINPUT " WAT IS UW NAAM # 2 ";P 2 $:P 2 *=LEFT*(P2*,7):BEEP:PRINT :GO 

TO 190 

180 P2*= "MSX"!INPUT " WAT IS UW NAAM "5 PI*;BEEPs PRINT:P1*=LEFT*(PI*,7) 
190 CLS:LOCATE 16,0;PRINT "MAX I T":GÓSUB 1340 
200 MD= 1 

210 FOR K— 1 TO 64;AV <K)= K:NE X T 
220 FOR K= 64 TO 1 STEP - 1:READ PC 
230 Pl = 1+ INT <K* RND (1)) 

240 J= AV(PI)- 1 

250 IF Pl< K THEN FOR 1= PI TO K- 1:AV(I>= AV<I + 1):NEXT 

260 1 = INT <3/ B):J = J- B* I 

270 BD < 1,3 ) = PC:GOSUB 490;NT= J:GOSUB 960 

280 NEXT K:RESTORE 290:NT= 7:GOSUB 960:GOSUB 960:GOSUB 960 

290 DATA 15,10,9,9,8,8,7,7,7,6,6,6 

000 DATA J,u,ij,u,4 4 4,4,4,o,o>,3,o,3 

310 DATA 2 , 2 ,2^2,2, 2 ,1, 1 , 1 , 1, 1 

320 DATA 0,0,0,0,0,0,-1,-1,-1,-1,-1 

330 DATA -2,-2,-2,-2,-3,-3,-3 

340 DATA - 4 ,-4,-4,-5,-5,- 6,-6 

350 DATA -7,-9,100 

360 Sl= 0;S2= 0:GOSUB 980 

370 REM PLAYER 1 

380 PL= 1:GOSUB 580:IF FL= 0 THEN 410 
390 REM PLAYER 2 

400 PL= 2:GOSUB 580:IF FL< > 0 THEN 370 

410 LOCATE 1,22: PRINT STRING* (39, M " ) 5 : LOCATE 1,22: ON 2+ SGN (S2- SDGOSU 
B 460,470,480 

420 LÖCATÈ 1,23:PRINT STRING*(39, H “);;LOCATE 1,23:PRINT "WILT U NOG EEN 
KEER SPELEN?' (J/N)" 

430 C<M=INKEY$: IFC*=" "THEN430 
440 IF "3"= C* OR n j"=C$ THEN RUN 

450 CLS:WIDTH37:COLOR15,4,4:KEYON:PRI NT"TOT ZIENSBEEP:END 

460 PRINT PI*;" GEWONNEN MET";5TR* (SI- S2);" PUNTEN":PRINT :RETURN 

470 PRINT "GELIJK SPEL!! RETURN 

480 PRINT P2*;" GEWONNEN MET"; STR* (S2- SI);" PUNTEN "-.PRINT : RETURN 
490 REM DRAW'BOARD PÜSITION Ï,J IN MODE MD (1=RED,2=BLACK) 

500 PC= BD <I,J) 

510 IFJD=255tHENGOSUB1470ELSELOCATEJ*4+5,1*2+5 
520 IF MD= 2 THEN540 
530 REM 

540 IF PC= 100 THEN PRINT "**":C1= I:C2= J:QX=J*4+5:QY=I*2+5:GOTO 570 
550 IF PC= - 100 THEN PRINT " ":GOTO 570 

560 PRINT RIGHT* <" "+ STR* (PC),2) 

570 RETURN 

580 IF PL= 2 THEN 620 

590 FL- 600:FOR J= 0 TO 7:FL= FL+ BD(Cl,J):NEXT 
600 IF FL= 0 THEN RETURN 

610 NM*= P1*:DX= 1:DY= 0:GOSUB 650:RETURN 

620 FL= 600:FOR 1= 0 TD 7:FL= FL+ BD<I,C2):NEXT 

630 IF FL= 0 THEN RETURN 

640 NM*= P2*:DX= 0:DY= 1:GOSUB 650:RETURN 
650 Y= Cl:X= C2:FX= 1 
660 * 

670 IF NP= 2 OR PL— 1 THEN 690 

680 PRINT : GOSUB 950! PRINT NM$; "' S BEURT. ":GOSUB 1030-.GOTO 850 

690 GOSUB 950: ON FX GOTO 700,710 

700 PRINT :GOSUB 950s PRINT NM*;", UW BEURT. ":PRINT :GOTO 720 

710 PRINT " '":PRINT 
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720 PL.AY " L64T200N70" 

730 C*=INKEY*:IF C$="" THEN 730 ELSE .KS=ASC (C*) 

740 IF C$=CHR$(27) THEN 450 
750 IF C*< > ” "THEN 830 
760 0X= X:0Y= Y 

770 Y= Y+ DY!IF Y> 7 THEN Y“ 0 

780 X = X+ DXïIF X> 7 THEN X = 0 

790 PT- BD(Y,X):3F ABS <PT) = 100 THEN 770 

800 MD= 1!I— OY: J = OXïGDBüB 490 

810 MD= 2:1= Y:J= X:GOSUB 490 

820 GOTO 730 

830 IF C$< > CHR* (13)THEN 730 
B40 IF ABS (BD(Y,X))= 100 THEN 730 
850 REM SCORE IT 
860 ’ 

870 IF NP=1 AND PL =2 THEN MD= 2:1= Y :J= XsGOSUB 490:FOR DL = 1 TO 1500: 
NEXT 

880 GOSUB 970:MD= 1:1= Cl:J= C2:BD(I,J)= - 100:GOSÜB 490 

890 1= Y: J = X:PT= BD(I,J):BD(I,J)= 100:GOSUB 490 

900 IF PL= 1 THEN Sl= S1+ PT 

910 IF PL= 2 THEN S2= S2+ PT 

920 GOSUB 950 

930 LOCATE 22,22:PRINT "LAATST GENOMEN:PT?" ": 

940 GOSUB 980-RETURN 
950 LOCATE 1,21:RETURN 
960 BEEP:RETURN 

970 FOR N=60 TO 70 :PLAY "MBT255ML»:NEXT:RETURN 
980 GOSUB 950 

990 JD=255:LOCATE 4,2: ME*=P1*+" J S SCORE="+5TR* <S1)+" "+P2*+ ,,: *S SCORE="+ 

STRS (S2)+" ":ME$=LEFT$ < ME$,40):PRINT ME$:RETURN 

1000 REM SCREEN INSTRUCTIONS 
1010 RETURN 

1020 ' COMPUTER PLAYER ALGORITHM 

1030 MT= - 100:GG= - l:FOR Al= 0 TO 7:PC= BD(A1,C2):IF ABS (PC)= 100 THEN 
1170 

1040 MX= - 100:FOR A2= 0 TO 7 

1050 IF A2< > C2 THEN PK= BD(A1,A2):IF PK< > - 100 AND PK> MX THEN MX= PK 
! SV= A 

1060 NEXT A2 

1070 IF MX< > - 100 THEN 1090 

1080 IF PO MT THEN MT= PC:GG= Al:GOTO 1170 

1090 IF G6< 0 THEN GG= Al 

1100 FOR A2= 0 TO 7:PQ= BD(A2,SV):IF PQ= - 100 OR A2= Al THEN 1160 
1110 MY= - 100:FOR A3= 0 TO 7:PW= BD(A2,A3):IF A3= SV THEN 1130 
1120 IF ABS (PWX > 100 AND PW> MY THEN* MY= PW 
1130 NEXT A3 

1140 IF MY= - 100 THEN MY= 0 

1150 DT= PC- MX+ PQ- MY:IF DT> MT THEN MT= DT:GG= Al 
1160 NEXT A2 

1170 NEXT Al:Y= GG:RETURN 

1180 CLS:LOCATE 16,1:PRINT "MAX I T":PRINT 
1190 PRINT "HET SPÉL MAXIT IS OM ZOVEEL MOGELIJK" 

1200 PRINT "PUNTEN TE VERZAMELEN .TWEE SPELERS" 

1210 PRINT "TEGEN ELKAAR OF ÉÉN TEGEN DE COMPUTER":PRINT 
1220 PRINT "U VERZAMELT UW PUNTEN DOOR EEN MERK" 

1230 PRINT "MET DE SPATIETOETS TEPLAATSEN,":PRINT 
1240 PRINT " **" 

1250 PRINT:PRINT "IN EEN RUIMTE MET EEN NUMMER ER IN." 

1260 PRINT "DE EERSTE SPELER BEWEEGT HORIZONTAAL" 

1270 PRINT "EN DE TWEEDE SPELER VERTIKAAL. HEEFT" 

1280 PRINT "U DE JUISTE PLAATS DAN KAN U HET" 

1290 PRINT "NUMMER (PAKKEN) DOOR OP DE (RETURN)" 

1300 PRINT "TOETS TE DRUKKEN." 

1310 PRINT " VEEL GELUK!" 

1320 PRINT:PRINT"GELUID AAN,EN DRUK OP EEN TOETS!":GOSUB1450:CLS:RETURN 

1330 PLOT 8:END 

1340 REM OTHER DTHELLO BOARD 

1350 ’ 


!360 QWS=" r -!-,-,-,-,-,-,-r 

1370 ZX*="| | | | | | | f I” 

1380 QGS="| -1-1-1-1-1-1-1- 1" 

1390 TK»= M i-1-1-'-1-1-1-1-1" 
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1400 LOCATE 4,4SPRINT QW$ 

1410 FOR Y=5 tO 17 STEP 2:L0CATE 4,YsPRINT ZX$:LOCATE 4,Y+lsPRINT QG*:NEX 

1420 LOCATE 4,19:PRINT ZX$:LOCATE 4,20:PRINT TK$ 

1430 GOSUB 1000 
1440 RETURN 

1450 KS=RND Cl):KS$=INKEY$ sIFKS*= M "THEN1450 
1460 KS=ASC < KS$):RETURN 

1470 LOCATEQX+1, DY-1: PRI NT ”; : LOCATEQX+1, QY+1: PRI NT "; 

1480 XX= J*4+5:YY=1*2+5:LOCATÈXX + 1,YY-1!PRINT"-"s sLOCATÈXX+1,YY+1SPRINT"- 

M t ? 

1490 QX = XX:QY~YYsLOCATEXX,YYs RETURN 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


:tellin6 

Regel 

750 - 

221 

10 

- 

0 

Regel 

760 - 

88 

20 

- 

0 

Regel 

770 - 

102 

30 

- 

0 

Regel 

780 - 

97 

40 

- 

142 

Regel 

790 - 

149 

50 

- 

166 

Regel 

800 - 

6 

60 

- 

180 

Regel 

810 - 

105 

70 

- 

32 

Regel 

820 - 

147 

80 

- 

60 

Regel 

830 - 

54 

90 

- 

82 

Regel 

840 - 

219 

100 

- 

128 

Regel 

850 - 

0 

110 

- 

21 

Regel 

860 - 

58 

120 

- 

49 

Regel 

870 - 

97 

130 

- 

11 

Regel 

880 - 

198 

140 

- 

70 

Regel 

890 - 

81 

150 

- 

26 

Regel 

900 - 

78 

160 

- 

91 

Regel 

910 - 

BI 

170 

- 

25 

Regel 

920 - 

116 

180 

- 

50 

Regel 

930 - 

130 

190 

- 

149 

Regel 

940 - 

122 

200 

- 

178 

Regel 

950 - 

34 

210 

- 

26 

Regel 

960 - 

136 

220 

- 

42 

Regel 

970 - 

180 

230 

- 

16 

Regel 

980 - 

116 

240 

- 

230 

Regel 

990 - 

233 

250 

- 

47 

Regel 

1000 - 

0 

260 

- 

40 

Regel 

1010 - 

142 

270 

- 

5 

Regel 

1020 - 

58 

280 

- 

48 

Regel 

1030 - 

67 

290 

- 

120 

Regel 

1040 - 

217 

300 

- 

87 

Regel 

1050 - 

160 

310 

- 

125 

Regel 

1060 - 

22 

320 

- 

82 

Regel 

1070 - 

97 

330 

- 

72 

Regel 

1080 - 

26 

340 

- 

89 

Regel 

1090 - 

131 

350 

- 

87 

Regel 

1100 - 

104 

360 

- 

79 

Regel 

1110 - 

92 

370 

- 

0 

Regel 

1120 - 

224 

380 

- 

82 

Regel 

1130 - 

23 

390 

- 

0 

Regel 

1140 - 

197 

400 

- 

58 

Regel 

1150 - 

50 

410 

- 

230 

Regel 

1160 - 

22 

420 

- 

151 

Regel 

1170 - 

45 

430 

- 

56 

Regel 

1180 - 

43 

440 

- 

142 

Regel 

1190 - 

172 

450 

- 

100 

Regel 

1200 - 

98 

460 

* 

225 

Regel 

1210 * 

17 

470 

- 

105 

Regel 

1220 - 

133 

480 

- 

2 

Regel 

1230 - 

1 

490 

- 

0 

Regel 

1240 - 

201 

500 

- 

56 

Regel 

1250 - 

211 

510 

- 

220 

Regel 

1260 - 

223 

520 

- 

132 

Regel 

1270 - 

119 

530 

- 

0 

Regel 

1280 - 

47 

540 

- 

178 

Regel 

1290 - 

1 

550 

- 

78 

Regel 

1300 - 

159 

560 

- 

13 

Regel 

1310 - 

90 

570 

- 

142 

Regel 

1320 - 

11 

580 

* 

255 

Regel 

1330 - 

114 

590 

- 

170 

Regel 

1340 - 

0 

600 

- 

37 

Regel 

1350 - 

58 

610 

• 

202 

Regel 

1360 - 

55 

620 

- 

169 

Regel 

1370 - 

24 

630 

- 

37 

Regel 

1380 - 

50 

640 

- 

203 

Regel 

1390 - 

43 

650 

- 

235 

Regel 

1400 - 

5 

660 

«* 

58 

Regel 

1410 - 

40 

670 


59 

Regel 

1420 - 

96 

680 

- 

23 

Regel 

1430 - 

166 

690 

- 

152 

Regel 

1440 - 

174 

700 

- 

190 

Regel 

1450 - 

159 

710 

- 

64 

Regel ; 

1460 - 

252 

720 

- 

118 

Regel 

1470 - 

57 

730 

- 

185 - 

Regel 

1480 - 

30 

740 

* 

252 

Regel 

Totaal 

1490 - 
: 14461 

53 


MAXI T 

HET SPEL MAXIT IS OH ZOVEEL HOGELIJK 
PUNTEN TE VERZAMELEN .TWEE SPELERS 
TEGEN ELKAAR OF ÉÉN TEGEN DE COMPUTER 

U VERZAMELT UW PUNTEN DOOR EEN MERK 
MET DE SPATIETOETS TEPLAATSEN, 

** 

IN EEN RUIMTE MET EEN NUMMER ER IN. 

DE EERSTE SPELER BEWEEGT HORIZONTAAL 
EN DE TWEEDE SPELER VERTIKAAL. HEEFT 
U DE JUISTE PLAATS DAN KAN U HET 
NUMMER <PAKKEN) DOOR OP DE <RETURN) 
TOETS TE DRUKKEN. 

VEEL GELUK' 

GELUID AAN,EN DRUK OP EEN TOETS? 


AL y S 


A X I T 
MSX'S 


e 

9 

-4 

6 

-2 

2 

-7 

-9 j 

i ~ 3 

-1 

-2 

-2 

2 

1 

5 

3 

e 

-5 

7 

3 

6 

5 

1 

4 

-6 

9 

1 

1 

5 

-4 

** : 

4 

7 

2 

-1 

2 

-6 

7 I 

0 

8 

3 

-3 

15 

1 

5 

0 

8 

2 

-4 

10 

-1 

-5 

-1 

6 

4 

0 

3 

“1 

0 

2 

-3 

3 

-2 

4 
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5 OP EEN RIJ 



Beeldscherm: WIDTH 36 


10 ’*)|(]|^*]|^***********)|c**]M********* 
20 9 t 5 OP EEN RIJ * 

30 ’* Door 6. W. J. v. d. Pol # 

40 * ♦ # 

50 * * <c)1986 MSX Gids Amsterdam * 

60 > %t*t**t*%t*ttl****************** 
70 ’ 

80 SCREEN 0:COLOR 15,4,4:KEYOFF 
90 CLEAR: DEFINT A-Z 

100 LOCATE 10,0:PRINT"5 OP EEN RIJ" 
110 LOCATE 3,4:PRINT"Wi1t U eerst de 
spelregels en even tueel een de 
monstratie? (J o-f N) 

120 I*=INKEY*:IF I$=""GOTO 120 
130 IF I$="N"OR I*="n"GOTO 220 
140 IF 1$”"J"OR I$="j"GOTO 150 ELSE 
120 

150 CLS:LOCATE 4,0:PRINT"Bij dit spe 
1 moeten de spelers omde beurt hun p 
ion in een bepaald vakplaatsen. 

160 LOCATE 3,3:PRINT"Het is daarbij 
dan de bedoeling omals eerste te pro 
beren om -5- pionnenop èèn rij te kr 
ijgen. 

170 LOCATE 6,7: PRINT"De computer ge 
e-ft U straks eendemonstratie van dit 
spel . 

180 LOCATE 6,10:PRINT" Deze demonstra 
tie kunt U op elkgewenst moment ond 
erbreken door despatiebalk zolang 
ingedrukt te houdentotdat het beeld 

vprdupnpn i p 

190 LOCATE 1|17:PRINT"Tik dan nu een 
willekeurige toets indan kan de dem 
onstratie beginnen. 

200 I$=INKEY$:IF 1$="" GOTO 200 
210 AA=3:10=3:GOTO 450 
220 CLEAR:CLS:SCREEN 0:COLOR 15,4,7 
230 IF STRIG(0)GOTO 230 

9döi ÓFf- 1 I\1TA**7 1 

250 LOCATE 2,1:PRINT"Dit spel kan wo 
rden gespeeld tussen2 personen (2), 
waarbij de bedieningdan plaats vind 
t d.m.v.de joysticks. 

260 LOCATE 1,5:PRINT"Stick 1 speelt 
dan met rood en stick2 met blauw. 

270 LOCATE 5,B:PRINT" Ook is het mog 
el ijk om tegen decomputer te spelen. 
U speelt dan metrood en joystick 
1 (1) o-f met decursortoetsen en 

spatiebalk op hettoetsenbord<T). 


280 LOCATE 3,14:PRINT"Met de stick ( 
o-f de cursortoetsen)wordt de zoeker 
in het gewenste vakgebracht.Bij ee 
n druk op de rode knop (o-f de spatie 
balk) wordt dan de piongeplaatst. 

290 LOCATE 3,20:PRlNT"Tik nu Uw keuz 
e in (2, 1 o-f T) . 

300 J*=INKEY$ 

310 IF J$="T" OR J*="t" THEN AA=0 

320 IF J$="l" THEN AA=1 

330 IF J*="2" THEN AA=2:G0T0 450 

340 IF AA>2 GOTO 300 

350 *' 

360 CLS:LOCATE 3,1:PRINT"Voordat we 
nu gaan spelen nog eveneen laatste o 
pmer king. 

370 LOCATE 2,4:PRINT"De IQ van de co 
mputer is instelbaarop de drie vol ge 
nde nivo’s!" 

380 LOCATE 10,7:PRINT"MATIG (1) 
390 LOCATE 10,B:PRINT"GOED (2) 

400 LOCATE 10'9:PRINT"ZEER GOED(3) 
410 LOCATE 6,11:PRINT"Als U nu nog e 
ven het gewenste nummer in wilt tikk 
en dan kunnen we beginnen. 

420 I*=INKEY*:IF 1*="" GOTO 420 
430 IQ=VAL<I*> 

440 IF IQ<1 OR IQ>3 GOTO 420 
460 •' 

470 DATA 0,0,0,24,24,0,0,0 
480 DATA 0,24,24,126,126,24,24,0 
490 DATA 60,60,60,60,255,126,60,24 
500 DIM A <120),B(120),C < ï 20),D(i20), 
E(120),F(120) , L < 120,7) 

510 DIM AP(120),AN(ï 20),BP(120),BN <1 
20),CP(120),CN(120),DP(120),DN(120) 
520 ? 

530 *++++ Frame-constructie +++++++ 
540 ’ 

550 SCREEN 2,0:COLOR 1,3,4:CLS 

560 LINE(16,5)—(30,175),ï,B 

570 FOR X=50TO242 STEP16 

580 LINE(X,15) — (X,175),1:NEXT 

590 FOR Y=Ï5T0175 STEP16 

600 LINE(50,Y)-(242,Y),1:NEXT 

610 FOR J=1 TO 2:A*="" 

620 FOR 1=1 TD 8 

630 READ A:A*=A*+CHR*<A>:NEXT 

640 SPRITE$(J)=A*:NEXT 

650 FOR J=0 TO 110 STEP 10 

660 L(J,2)=1:L(J,4)=1:L(J,7)=1 

670 L (J+9,0)=l:L (J+9,3) = 1:L <J+9,6) = l 

680 NEXT 

690 FOR J=0 TO 9 

700 L(J,5)=1:L(J, 6) = 1:L(J,7)=l 

710 L(J+l10,1)=1:L(J+l10,2) = 1:L(J+11 

0, 3)=1 

720 NEXT 

730 OPEN"GRP:"FOR OUTPUT AS#1 
740 PRESET(64,4) 

750 PRINT#1,"SPELER IS AAN ZET" 

760 ’ 

770 ’*++++++++ Spel cyclus +++++++++ 
780 " 

790 IF IQ=1 THEN G=2 ELSE G=1 

800 K=LM0D2:BEEP:BEEP 

810 X=134:Y=3 

820 IF K-0 THEN 840 

B30 Z=10:C=4:ST=2:GOTO 850 

840 Z=1:C=8:ST=1 

850 IF AA=0 THEN ST=0 

860 IF AA=1 THEN ST=1 

870 PUT SPRITE 2,(X,Y),1,2 

880 LINE(130,3)—STEP(16,8),C,BF 

890 IF STRIG(0) AND AA=3 GOTO 220 

900 IF AA<2 AND K=1 GOTO 1490 

910 IF AA=3 GOTO 1490 
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920 0=STICK <ST) 

930 FOR T=1 TO 200sNEXT 

940 IF 0=8 OR 0=1 OR 0=2 THENY=Y-16 

950 IF 0=4 OR 0=5 OR 0=6 THENY=Y+16 

960 IF 0=2 OR 0=3 OR 0=4 THENX=X+16 

970 IF 0=6 OR 0=7 OR 0=8 THENX=X-16 

980 IF X >230 THEN X=230 

990 IF X<54 THEN X=54 

1000 IF Y>163 THEN Y=163 

1010 IF Y<19 AND O>0 THEN Y=19 

1020 PUT SPRITE 2, < X „ Y) , 1,2 

1030 IF STRIG(ST)=0 ÓR Y=3 GOTO 920 

1040 PUT SPRITE 2'<X'Y),15,1 

1050 M=(X—54)/1.6+ <Y—19)716 

1060 IF E <M)>0 GOTO 920 

1070 CIRCLE<X+4,Y+4),5,C:PAINT<X+4,Y 

+ 4) ,C 

1080 PUT SPRITE 1, < X « Y),15,1 
1090 IF Z=1 THEN 1110 
1100 IF A<M)= >40 OR B(M)=>40 OR C<M) 
=>40 OR D<M>=>40 THEN 2300 ELSE 1120 
1110 IF A <M)HOD10=>4 OR B(M)MOD10=>4 
OR C(M)MOD10=>4 OR D<M)MOD10=>4 THE 
N 2300 

1120 F <M> =08 E(M)=Z s L=L+1 
1130 IF L=120 GOTO 2300 
1140 ' 

1150 *++++++ Puntentoekenning ++++++ 
1160 ’ 

1170 U=1 s T=0:GOSUB 1300 

1180 AP(V)=Q* Z!A(V)=AP(V > +AN < V) 

1190 AN < W> =Q*Z ! A (W) =AP~(W) +AN < W) 

1200 U=10!T=1!GOSUB 1300 
1210 BP<V)=Q*Z:B<V)=BP(V)+BN<V> 

1220 BN<W)=Q*Z:B<W)=BP<W)+BN<W> 

1230 ü=9 sT=2sGOSUB 1300 
1240 CP<V)=Q*ZiC<V)=CP<V)+CN<V> 

1250 CN(W)=Q* Z!C(W)=CP < W)+CN(W) 

1260 U=ll!T=3sGOSUB 1300 
1270 DP<V)=Q*Z!D(V)=DP<V)+DN<Vï 
1280 DN(W)=Q*ZiD(W)=DP<W)+DN<W> 

1290 GOTO B00 
1300 Q=0!V=0!W=0 
1310 FOR I=M TO 119 STEP U 
1320 IF I=M+U AND E<I)=0 THEN F(I>=1 
1330 IF E(I)=Z THEN Q=Q+1 
1340 IF E(I)< >Z THEN V=I 
1350 IF E <I)< >Z OR L<I,T)=1 GOTO 137 
0 

1360 NEXT 

1370 IF E(I)>0 THEN V=120 

1380 FOR J=M TO 0 STEP-U 

1390 IF J=M-U AND E(J>=0 THEN F(J)=1 

1400 IF E(J)=Z THEN Q=Q+1 

1410 IF E(J)< >Z THEN W=J 

1420 IF E(J)OZ OR L(J,T+4)=1 GOTO 1 

440 

1430 NEXT 

1440 IF E < J > >0 THEN W=120 
1450 Q=Q-1:RETURN 
1460 ■' 

1470 ’++++++++ computerzet +++++++ 
1480 =■ 

1490 IF AA=3AND L=0THENM=54!GOTO1910 
1500 D1=0!D2=0:D3=0: Fl=0s F2=0 
1510 R=RND(-TIME) 

1520 P=INT<RND(1>*2)!IF P=1THEN 1540 

1530 P1=0 s P2=119:P3=1:GOTO 1550 

1540 P1=119:P2=0:P3=-1 

1550 FOR J=P1 TO P2 STEP P3 

1560 IF F < J)=0 GOTO 1680 

1570 IF L<4 GOTO 1580 ELSE 1950 

1580 B0=A < J)+B < J)+C(J)+D(J) 

1590 B1=B0\10s B2=B0MOD10 
1600 IF L>3 GOTO 1620 

1610 IF B0>D3HOD100 THEN D3=100*J+B0 
s GOTO 1680 

1620 C1=10*A1+B1:C2=10*A2+B2 


1630 IF Cl>D1 THEN J 1=J!D1=C1 
1640 IF C2>D2 THEN J2=JsD2=C2 
1650 E1=10*A2+B1:E2=10*A1+B2 
1660 IF El>F1 THEN J3=J:F1=E1 
1670 IF E2>F2 THEN J4=0:F2=E2 
1680 NEXT 

1690 IF L<4 THEN M=D3\100:GOTO 1910 

1700 IF Z=1 GOTO 1790 

1710 IF D1=>200GOTÜ 1870 

1720 IF F1 = >2006ÜTO 1890 

1730 IF Dl=>70 GOTO 1870 

1740 IF F1=>70 GOTO 1890 

1750 IF Dl=>30 GOTO 1870 

1760 IF Fi=>30 GOTO 1890 

1770 IF D1 = >10 GOTO 1870 

1780 IF D1MOD1 0- >D2M0D10 THEN 1870 E 

LSE 1880 

1790 IF D2= >200GOTO 1880 
1800 IF F2=>200GOTO 1900 

1810 IF D2=>70 GOTO 1880 

1820 IF F2=>70 GOTO 1900 

1830 IF D2=>30 GOTO 1880 

1840 IF F2=>30 GOTO 1900 

1850 IF D2= >10 GOTO 1880 

1860 IF D2M0D10= >D1MOD10 THEN 1880 E 

LSE 1870 

1870 M=J1:GOTO 1910 
1880 li=J2s GOTO 1910 
1890 M=J3s GOTO 1910 
1900 M=J4ï GOTO 1910 

1910 X=(M\10)*16+54:Y=(M MOD10>*16+1 
9!GOTO 1070 
1920 ’ 

1930 51 ++++++ Subr. zetwaarde ++++++++ 
1940 *' 

1950 A=0!A1=0:ZZ=10 

1960 IF A < J >\10 >G THEN U=1 !T=0sGOSU 


B 2060 

1970 IF B <J)\10>G THEN U=10!T=1sGOSU 


B 2060 

1980 IF C<J>\10>G THEN U=9 !T=2ïG0SU 
B 2060 

1990 IF D < J)\10>G THEN U=11!T=3:GOSU 
B 2060 

'yOiCiQi A 1 = A * * 7 7 ” 1 

2010 IF A(J)MOD10>G THEN U=1 :T=0:GO 
SUB 2060 

2020 IF B (J > liOD 10>G THEN U=10:T=1:GO 
SUB 2060 

2030 IF C < J)MODI0>G THEN U=9 ï T=2:GO 
SUB 2060 

2040 IF D < J > MODI0>G THEN U=11sT=3!G0 
SUB 2060 

2050 A2=A:GOTO 1580 
2060 S=0 


2070 FOR I=J TO 119 STEP U 
2080 IF I=J GOTO 2110 
2090 IF E(I)=ZZ THEN S=S+3 
2100 IF E(I)OZZ GOTO 2130 
2110 IF L(I,T)=1 GOTO 2140 
2120 NEXT 

2130 IF E(I)=0 THEN S=S+1 
2140 FOR I=J TO 0 STEP-U 
2150 IF I=J GOTO 21B0 
2160 IF E <I> =ZZ THEN S=S+3 
2170 IF E(I> < >ZZ GOTO 2200 
2180 IF L(I,T+4)=1 GOTO 2210 
2190 NEXT 

2200 IF E <I)=0 THEN S=S+1 
2210 IF S>11 THEN A=A+20 
2220 IF S=ll THEN A=A+11 


2230 IF S=10 THEN A=A+7 


2240 IF S=8 THEN A=A+3 
2250 IF S=7 THEN A=A+1 
2260 IF IQ=2 AND 5=9 THEN A=A+3 
2270 RETURN 

2280 '+++++++ 5 op een rij! ++++++++ 
2290 ’ 
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2300 

2310 

2320 

2330 

2340 


2370 


2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 


2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 


2740 


BEEP;BEEP:BEEP:BEEP 
E(M)=Z 


IP U=120 
PRESET(21 
PRESET(21 
PRESET<21 
PRESET(21 
PRESET<21 
PRESET(21 
PRESET<21 
PRESET(21 
PRESET(74 
PR INT#1,” 
PRESET(68 
PRINT#!,” 
IF L=120 


SOTO 2410 

> 

) 

) 

) 

) 


,46 


,94 
. 106) 


F*R I NT # 1 
F'R I NT # 1 
PRINT#1 
PRINT#1 
PRINT#! 

PRINT#1 
,130)SPRINT#! 

,142)sPRINT#l 
,177) s C0LDR15 
VOOR EEN NIEUW SPEL” 
185) 

SPATIEBALK INDRUKKEN 
GOTO 2730 


9 

9 

9 

9 

9 

9 

9 

J 


H 5 H 
IIQII 
II p II 

”E” 

ii ^ ii 

”N" 

II D II 
r\ 

ii y ii 


M 


’+++ Indicatie 5 op een rij +++ 

U=1 s T=0sGOSUB 2530 
U—10;T=1: GOSUB 2530 
U=9 :T=2s GOSUB 2530 
U—11s T=3 s GOSUB 2530 
Q=0:R=0 

FOR I=M TO 119 STEP U 
IF E(I)=Z THEN Q=Q+1 
IF L <I,T) = 1 THEN 2590 
IF E(I)< >Z GOTO 2590 
NEXT 

FOR J=M TO 0 STEP-U 
IF E(J)=Z THEN R=R+1 
IF L(J,T+4)=1 THEN 2640 
IF E <J)< >Z GOTO 2640 
NEXT 

IF Q+R=>6 GOTO 2660 
RETURN 
J=M-(R-I> *U 
FOR 1=0 TO 4 
X=<(J+I*U>\10>*16+54 
Y=(<J+I*U)MOD10)*16+19 
PUT SPRITE 3, <X,Y),15,2 
FOR T=1 TO 30;NEXT:NEXT 
IF STRIG(0)=0 GOTO 2670 
IF STRIG(0)=0 GOTO 2730 
GOTO 80 


CONTROLETELLING 




ï 


! 


Req 
Reg 
Req 
Reg 
Reg 
Req 
Reg 
Req 
Req 
Req 
Req 
Req 
Req 
Reg 
Reg 
Req 
Reqe 
Regel 
Regels 

Regel 
Rege 
Reqe 

Reqe 

Reqe 

Regel 
Regel: 
Rege| 

Reqe 
Reqe 
Reqe 
Reqe 
Reqe 
Reqe 
Reqe 
Reqe 


: 


! 

: 

: 

: 


10 

20 

30 

40 

50 

00 

70 


90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 


5B 

58 


58 

158 

37 

76 

53 

252 

81 

164 

145 

123 

31 

156 

193 
108 

16 

85 

76 

248 

192 

244 

197 

194 

49 
73 

136 

26 

208 

50 


Regel 

5*i*! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

itaej 

Regel 

Regel 

Rege 

Rege 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

5*?*j 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


360 - 222 
370 - 140 
380 - 182 
390 - 133 
400 - 61 
410 - 210 
420 - 73 
430 - 218 
440 - 150 
450 - 58 
460 - 58 
470 - 196 
480 -2 
490 - 113 
500 - 187 
510 - 38 
520 - 58 
530 - 58 
540 - 58 
550 - 184 
560 - 103 
570 - 31 
580 - 34 
590 - 186 
600 - 138 
610 - 235 
620 - 30 
630 - 176 
MO - 151 
650 - 183 
660 - 240 
670 - 13 
680 - 13! 
690 - 31 
700 - 245 
710 - 51 


Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Rege) 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel: 
Regel 
Regel 
Reqel 
Regel 
Regel 
Regel 


• 720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


860 

870 


890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

000 

010 

020 

1030 

1040 

1050 

1060 

1070 


131 

241 

164 

96 

58 

5B 

58 

12 

136 

114 

105 

12 

194 

238 

240 

164 

119 

29 
96 

222 

215 

164 

189 

192 

184 

197 

60 

254 
184 

30 
164 

74 

175 

70 

255 
233 



080 - 174 
090 - 136 
100 - 219 
110 - 22 
120 - 14 
130 - 72 
140 - 58 
150 - 58 
160 - 58 
170 - 18 
180 - 53 
190 - 55 
1200 - 250 
1210 - 57 
220 - 59 
1230 - 28 
1240 - 61 
1250 - 63 
1260 - 253 
1270 - 65 
1280 - 67 
1290 - 21B 
1300 - 114 
1310 - 55 
1320 - 134 
1330 - 129 
1340 - 106 
1350 - 150 
1360 - 131 
1370 - 111 
1380 - 149 
1390 - 138 
1400 - 130 
1410 - 109 



440 - 113 
450 - 93 
460 - 58 
470 - 58 
480 - 58 
490 - 59 
500 - 57 
510 - 214 
520 - 76 
530 - 117 
540 - 98 
550 - 150 
560 - 249 
570 - 211 
580 - 170 
590 - 12 
600 - 42 
610 - 10 
620 - 199 
630 - 98 



1640 - 103 
1650 - 203 
1660 - 106 
1670 - 113 
1680 - 131 
1690 - 166 
1700 - 225 
1710 - 224 
1720 - 246 
1730 - 126 
1740 - 148 
1750 - 86 
1760 - 108 
1770 - 66 
1780 - 160 
1790 - 235 
1800 - 1 
1810 - 137 
1820 - 159 
1830 - 97 
1840 - 119 
1850 - 77 
1860 - 160 
1870 - 37 
1880 - 38 
1890 - 39 
1900 - 40 
1910 - 222 
1920 - 56 
1930 - 58 
1940 - 58 
1950 - 227 
1960 - 24B 
1970 - 225 
1980 - 4 
1990 - 230 
2000 - 12 
2010 - 247 
2020 - 224 
2030 - 3 
2040 - 229 
2050 - 198 
2060 - 83 
2070 - 52 
2080 - 74 
2090 - 225 
2100 - 77 
2110 - 77 
2120 - 131 
2130 - 60 
2140 - 145 
2150 - 144 
2160 - 225 
2170 - 147 
2180 - 153 
2190 - 131 


Regel: 
Rege : 
Regel: 
Regel: 
Regel: 
Regel: 
Reqel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regili 
Regel: 
Regeli 
Regel: 
Regel: 
Regel: 
Rege): 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Rege): 
Regel: 
Reqel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Reqel: 
Regel: 

Regelt 
Regel: 
Regeli 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regelt 
Regel: 
Regelt 
Regelt 

Regel: 
Regelt 
Regel: 
Regel: 
Regel: 
Totaal: 


2200 - 60 
2210 - 165 
2220 - 157 
2230 - 154 
2240 - 182 
2250 - 179 
2260 - 105 
2270 - 142 
2280 - 58 
2290 - 58 
2300 - 174 
2310 - 44 
2320 - 183 
2330 - 78 
2340 - 128 
2350 - 141 
2360 - 154 
2370 - 166 
2380 - 155 
2390 - 183 
2400 - 202 
2410 - 142 
2420 - 112 
2430 - 91 
2440 - 15 
2450 - 248 
2460 - 58 
2470 - 58 
24B0 - 58 
2490 - 228 
2500 - 204 
2510 - 238 
2520 - 207 
2530 - 221 
2540 - 55 
2550 - 129 
2560 - 98 
2570 - 193 
2560 - 31 
2590 - 149 
2600 - 132 
2610 - 155 
2620 - 244 
2630 - 131 
2640 - 120 
2650 - 142 
2660 - 103 
2670 - 25 
2680 - 18 
2690 - 239 
2700 - 177 
2710 - 183 
2720 - 254 
2730 - 58 
2740 - 7 

34166 


KAMELEON 



V hebt de keuze uit 4 versies van dit 
snel.- On elk w;llekeumcj moment kunt U 
een,andere versie kiezen ( of hetzelfde 
opnieuw beginnen > door het betreffende 
nummer in te tikken. 

Alleen bij de nrs.3 *n 4 is de kameleon 
bont en slaan met alle vakjes om, doch 
alleen die in de zoeker en die aan de 
vier hoekpunten. 

U moet dan proberen om de bonte kameleon 
weer een egale groene kleur te geven. 
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Beeldscherm* WIDTH 36 


10 * ft******************************* 


20 

30 

40 

50 

60 


* * 
’ * 
' * 
’ * 


KAMELEON 

Door G. W. J. v. d . Pol 
BIoemendaalseweg 38 Nijmegen 


* 

* 

* 

* 

* 


70 * **********^**********)M********* 

80 SCREEN 2,0:COLOR J5,4,4:CLS 

90 CLEARsDEFÏNT A-Z:B=7:t>12:6=1:K=1 
100 0PEN”6RP:"FOR OUTPUT ASttl 
110 S*=CHR$ (&HFF) +CHR* <&HB1) +CHR* (&H 

81 > +CHR$ < &H81) +CHR$ (&H81) +CHR* < &HB 1) 
+CHR* (&HB 1) +CHR* (&HFF) 

120 SPRITE$< 0 )=S$ 

130 LINE <96,0) — (172,9) , 7,BF 

140 PAINT(97,1),7 

150 PSET <104,1),7:COLOR 8 

160 PRINT#1,"K M L O 

170 PSET(112,1),7:COLOR 12 

1B0 PRINT#1, " A EEN 

190 LINE(10,12)—(255,80),3,BF 

200 PAINT(11,79),3:COLOR 15 

210 X=104sY=39 

IF G=2 OR G=4 THEN 520 
DRAW"BM23,31R8UBR25D8R15U8R9D8R7 
UBR17D8R7U8R17D8R7U8R9D8R7UBR9DBRBD8 
R16DBR16D8R16D8R15U8RBU8R9D17L8D8 
240 DRAW"BM23,31D9RBDSR16D8R24D7L8D9 
R17U16R63D7LBD9R17U16R8U8R15D8R16DBR 
16DBR32 

250 LINE(42,34)-(45,37),8,BF:C0L0R B 
260 IF G=3 THEN 340' 


270 PRESET(32,24) 


III 


280 PRESET<24,32) 


(32,40) 



l«l 


300 PRESET(48,48) 

lil 


310 PRESET(72,56) 


|*i 


320 PRESET(64,64) 


PRINT#1, 
PRINT#1, 
PRINT#1, 
PRINT#!, 
PRINT#1, 
PRINT#1, 


til 


330 GOTO 470 
340 PRESET<32,24) 


1*1 


350 PRESET<24,32) 


lil 


360 PRESET(32,40) 


II 


370 PRESET<48,48) 

M m BB MË HU 


380 PRESET<72,56) 

m jmih 


390 PRESET<64,64) 


PRINT#1, 
PRINT#1, 
PRINT#1, 
PRINT#1, 
PRINT#1, 
PRINT#1, 


400 

410 

■” 

420 


II 


COLOR C 

PRESET<32,24):PRINT#1, 
PRESET<24,32):PRINT#1,* 

•I 


430 PRESET < 32,40):PRINT#1, 
440 PRESET < 56,48);PRINT#1, 

II 








450 PRESET <144,56):PRINT#1," 


II 


460 PRESET<72,64)SPRINT#1,- 


II 


470 PRESET(16,64),3:COLOR 15:PRINT#1 
,"nr" IB 

480 XR=240:XL=24 

490 PUT SPRITE 0, <X,Y),15,0 

500 IF H=0 THEN 1290 

510 H=1:GOTO7B0 


520 DRAW"BM31,31R8U8R25DBR15U8R9DBR7 
UBR9D8R7UBR9D8R7U8R9D8R7U8R9DBR16D8R 
16D8R16D8R16D8R24D9 

530 DRAW"BM31,31D9R8D8R16D8R24D7LBD9 
R17U16R15DBR9U8R7DBR9U8R15D7L8D9R17U 
16R8U8R15D8R16D8R16D8R33 
540 LINE<50,34)-<53,37),8,BF:COLOR B 
550 3F G=4 THEN 630 
560 PRESET<40,24) 


lil 


570 PRESET(32,32) 


til 


580 PRESET(40,40) 


|li 


590 PRESET<56,48) 


til 


600 PRESET<80,56) 


1*1 


610 PRESET<72,64) 


PR INT#1," 
PRI NT#1," 
PRINT#1," 


PRINT#1, 


II 


PRINT#1," 
PRINT#1, n 


I» 


620 

630 

640 


GOTO 760 
PRESET(40,24) 
PRESET(32,32) 


PRINT#1," 
PRINTttl," 


II 


650 PRESET (40,40) :PRINT#1, " 


H 


660 PRESET<64,48)SPRINT#1," 


'IJ II 


670 PRESET<104,56):PRINT#1," 

■ II 


680 PRESET(80,64)SPRINT#!," 

K BH 


690 

700 


COLOR C 
PRESET<48,24) 


•I 


710 PRESET(40,32) 


H 


720 PRESET<48,40) 


!>* 


730 PRESET<56,48) 


I» 


740 PRESET<80,56) 


lil 


750 PRESET<72,64) 


PR I NT # 1 , 11 
PRINT#1," 
PRINT#1," 
PRINT#1," 
PRINT#1," 
PRINT#1,” 


tl 


760 PRESET<16,64),3sCOLOR 15:PRINT#1 
" nr '* • G 

770 XR=232:XL=32 

780 PUT SPRITE 0,<X,Y),15,0 

790 IF STICK <0)=1 THEN Y=Y-8sIF Y<23 

* THEN Y=23 

800 IF STICK(0)=5 THEN Y S Y+B:IF Y>63 
THEN Y—63 

810 IF STICK(0)=3 THEN X=X+B:IF X>XR 
THEN X=XR 

820 IF STICK(0)=7 THEN X=X-8:IF X<XL 
THEN X=XL 

830 PUT SPRITE 0,<X,Y),15,0 

840 I$=INKEY$:IF I*<> H 1 M AND ItO"2"A 

ND I*<> ,, 3 M AND I*<>"4 M GOTO B60 

850 G=VAL < I $) s K=1:GOTO 190 

860 FOR J=0 TO 400:NEXT 

870 IF STRIG(0)=0 GOTO 790 

880 IF STRIG(0) GOTO 880 

890 GOSUB 910 

900 GOTO 790 

910 F=<Y+1)*32+X+8192:E=F 

920 A-(VPEEK(E)>\16 

930 IF A< >0 AND A<>15 THEN 960 

940 PLAY"SIM2000O3G 

950 GOTO 790 

960 COLOR 3 

970 PRESET < 192, 16) : PR I NT# 1, " ■■■" 
980 COLOR 15 

990 PRESET <192,16):PRINT#1,”ZET";K 
1000 PLAY”S1M2000O6L64CCCCCC 
1010 GOSUB 1240 
1020 IF G=3 OR G=4 GOTO 1110 
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1030 E=F+8 

1040 G06UB 1220 . 

1050 E=F-E 
1060 60 5UB 1220 
1070 E=F-256 
1080 GOSUB 1220 
1090 E=F+256 
1100 GOSUB 1220 
1110 E=F-24B 
1120 GOSUB 1220 
1130 E=F—264 
1140 GOSUB 1220 
1150 E=F+248 
1160 GOSUB 1220 
1170 E=F+264 
1180 GOSUB 1220 

1190 K-K+1:IF K»5 AND G=1 GOTO 1360 
1200 RETURN 
1210 ' 

1220 A=(VPEEK(E))\16 

1230 IF AOB AND A< >C THEN 1280 

1240 IF A=B THEN D=C ELSE D=B 

1250 FOR J=0 TO 7 

1260 VPOKE E+J,16*D+4 

1270 NEXT 

1280 RETURN 

1290 A*=” De kleur van deze'kame 

leon moet van cyaan naar groen worde 
n gebracht. 

1300 Y=104:GOSUB 1450 

1310 A*=" Als met de cursortoetsen d 
e zoeker naarde gewenste plaats w 
ordt gestuurd endaarna de spatiebal 
k wordt ingedrukt danzal de kleur in 
de zoeker omslaan. 

1320 Y=128:GOSUB 1450 

1330 A*=" Ook slaan dan tevens de k 
leuren van denaast1iggende vakjes te 

? elijkertijd om. 

340 Y=168:GOSUB 1450 
1350 X=104:Y=39:GOTO 510 
1360 LINE <10,96) — <255,191),4,BF 
1370 PAINT(1 ï ,105),4 

1380 A$=" U hebt de keuze uit 4 ve 
rsies van ditspel. Dp elk willekeur 
ig moment kunt Ueen andere versie 
kiezen < o*f hetzel *f deopni euw beginne 
n ) door het betre-f*fendenummer in t 
e tikken. 

1390 Y=96:GOSUB 1450 

1400 Alleen bij de nrs.3 en 4 i 

s de kameleonbont en slaan niet alle 
vakjes om, dochalleen die in de 
zoeker en die aan devier hoekpunten 

1410 Y= 144: GOSUB 1450 

1420 A*=”U moet dan proberen om de b 
onte kameleonweer een egale groene k 
leur te geven. 

1430 Y»176:GOSUB 1450 
1440 X=104:Y=39:GOTO 1200 
1450 X=9 

1460 FOR 1=1 TO LEN<A$> 

1470 PSET(X+6*I,Y),4:COLOR 15 
1480 PRINT# 1 , lilD$ (A$ ,1,1) 

1490 IF IMOD40=0 THEN X=X-240:Y=Y+B 
1500 NEXT 
1510 RETURN 
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Regel: 
Regel: 
Regel: 
Regel: 
Regeli 

Regel 



Regel 



Regel 

Regel 

Regel 



Regel 

Regel 

Regel 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege 

Rege 

ruL, 




10 - 58 
20 - 5B 
30-58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
80 - 197 
90 - 55 
100 - 241 
110 - 145 
120 - 179 
130 - 232 
140 - 2 
150 - 60 
160 - 167 
170 - 70 
180 - 141 
190 - 48 
200 - 41 
210 - 118 
220 - 168 
230 - 6 
240 - 223 
250 - 199 
260 - 114 
270 - 84 

- 177 

- 87 
300 - 116 
310 - 43 
320 - 230 
330 - 142 
340 - 104 
350 - 217 
360 - 9 
370 - 156 
380 - 31 
390 - 218 
400 - 32 
410 - 82 
420 - 254 
430 - 196 
440 - 46 
450 - 34 
460 - 226 
470 - 245 
480 - 140 
490 - 172 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


500 

510 

520 

530 



Regel: 
Regel: 
Regel: 
Regel: 



Regel: 

Regel: 

Regel: 



: 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 


42 

41 

120 

69 

215 

150 

166 

222 

132 

36 

147 

206 

177 

226 

6 

209 

88 

63 

170 

32 

24 


Regel: 



[Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 
Repl: 
Regel: 
Rege): 
Regel: 
Regel: 
Regel: 


131 

137 

131 

136 



Regel: 
Regel: 
Regel: 
Regel: 


710 - 



730 

740 


217 

78 

98 




760 

770 

780 

790 

800 

B10 

820 

830 

840 

850 

860 

870 

880 

890 

900 

W 

930 

940 

950 

960 

970 

980 

990 


- 140 

- 172 

- 81 
- 162 

- 04 

- 79 

- 172 

- 203 

- 188 
- 111 

- 159 

- 249 

- 76 

- 208 

- 57 

- 63 

- 208 

- 24! 

- 155 

- 251 

- 23 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 





Rege 

Regel 

Rege 

Regel 

Regel 

Regel 



Regel 
Regel 
Regel 
Regel 
ftetell 
Regel: 
Regel: 
Regel: 
Regel: 
Reaet; 
Totaal: 


1000 - 67 
1010 - 151 
1020 - 168 
1030 - 132 
1040 - 131 
050 ■ 

060 ■ 

070 * 

080 * 

090 • 

100 - 131 
110 - 115 
120 - 131 
130 - 145 
140 - 131 
150 - 114 
160 - 131 
170 - 144 
180 - 131 
190 - 103 
200 - 142 
210 - 58 
- 201 

- 209 
* 61 

250 - 29 
260 - 238 
270 - 131 
280 - 142 
290 - 59 
300 - 99 

- 194 

- 123 

- 120 
- 163 
* 102 

360 - 244 
370 - 15 
380 - 64 
390 - 91 
400 - 20 
410 - 139 
420 - 97 
430 - 171 
440 - 27 
450 - 97 
460 - 76 
470 - 170 
480 - 221 
1490 - 181 
1500 - 131 
1510 - 142 
19347 


YATHZEE 
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Beeldscherm: WIDTH 36 


10 ’********************* 

20 '* YATHZEE * 

30 ** Door: Rene Kluwen * 

40 '* <c >1986 MSX Gids * 

50 '********************* 

60 * 

70 'Met de toetsen 1-5 kan aangegeve 
n worden welke dobbelstenen overgego 
oid moeten worden <in oplopende volg 
orde) 

80 'Met de cursortoetsen het pijltje 
op de plaats zetten waar de punten 
geteld moeten worden 

90 '!!!!! BIJ REGEL 4590,4610,4630 E 
N 4810 MOET DE LIJN AANEENGESLOTEN D 
OÜRGETROKKEN WORDEN EN NIET MET SPAT 
IES!!! 

100 : 

110 ' INITIALISEREN 
120 CLEAR 9000!DEFINT A-Z 
130 CLS:INPUT "Hoeveel spelers (max. 
60) "|MS 

140 IF MS>60 OR MS<1 THEN 130 

150 DIM N$(MS),Y$ <13),PY$(13),N(14,M 

S>,PT<13,MS),SO <MS),SB(MS),ST(MS) 

160 FOR 1=1 TO MS 

170 PRINT USING "Naam van de ##de sp 
el er "si; 

180 INPUT N*U) 

190 NEXT I 

200 OPEN "GRP:" AS #1 
210 DUMMY=RND(—TIME) 

220 : 

230 ' LEES SCORE DATA IN 

240 FOR 1=1 TO 13 
250 READ Y$(I) 

260 PY$(I)=YS(I)+SPACES(20-LEN< Y* <I> 

) ) 

270 NEXT I 
280 ! 

290 ' DATA SCORE 

300 DATA enen,tweeën,drieën,vieren,v 
üven,z essen 

310 DATA thr ee o-f a ki nd, carr é, 4 ul 1 
house 

320 DATA kleine straat,grote straat 
330 DATA YATHZEE,chancé 
340 : 

350 ’ LEES SPRITE-DATA IN 
360 FOR 1=1 TO 8 
370 FOR J=1 TO 8 
380 READ K 

390 6 *<I)-B*<I>+CHRS<K) 

400 NEXT J,I 
410 : 

420 ? DATA SPRITES 

430 DATA 0,0,0,24,24,0,0,0 

440 DATA 0,6,6,0,0,96,96,0 

450 DATA 3,3,0,24,24,0,192,192 

460 DATA 0,102,102,0,0,102,102,0 

470 DATA 195,195,0,24,24,0,195,195 

480 DATA 102,102,0,102,102,0,102,102 

490 DATA 0,32,64,252,64,32,0,0 

500 DATA 0,4,2,63,2,4,0,0 

510 ! 

520 ' MAAK SCHERM 
530 COLOR 15,4,4:SCREEN 2,0 
540 LINE <20,10)-<200,189),,B 
550 LINE <145,10)-<145,189) 

560 ! 

570 ' MAAK SPRITES 
580 FOR 1=1 TO B 
590 SPRITE$(I)=S$(I) 

600 NEXT I 

610 FOR 1=1 TO 6 


620 PRESET <25,1*10+2) 

630 PRINT#1,Y$(I> 

640 LINE (20,1*10)-<200,1*10) 

650 NEXT I 

660 LINE <20,70)-<200,72),,B 
670 PRESET (30,75) 

6B0 PRINT#1,"SUBTOTAAL A:” 

690 LINE (20,85)-<200,85) 

700 FOR 1=7 tO 13 
710 PRESET (25,1*10+19) 

720 PRINT#1,Y$U> 

730 LINE (20,1*10+17)-(200,1*10+17) 
740 NEXT I 

750 LINE (20,157)-(200,159),,B 
760 PRESET <30,162) 

770 PRINT#1,"SUBTOTAAL B:" 

780 LINE <20,173)-<200,173) 

790 LINE (20,175)-<145,189),14,BF 
800 PRESET (54,178),15 
810 COLOR 4 

820 PRINT#1,"TOTAAL :" 

830 COLOR 14 
840 : 

850 ' VAKJES VOOR DOBBELSTENEN 
860 FOR 1=1 TO 5 

870 LINE (209,19+1*20)-(231,31+1*20) 
B 

BB0 LINE (219,19+1*20)-<219,31+1*20) 
890 PRESET (204,22+1*20) 

900 PRINT#1,1 
910 NEXT I 
920 COLOR 15 

930 PUT SPRITE 7,<201,1),14 
940 : 

950 * SPEEL SPEL 
960 D=5 

970 SP=SP+1!IF SP>MS THEN SP=1 

980 60SUB 3780:'NIEUWE SPELER 

990 IF N(14,SP) THEN FOR 1=1 TO 1000 

:NEXT:GOTO 3210 

1000 FOR 1=1 TO D 

1010 D < I) = I 

1020 NEXT I 

1030 : 

1040 ' GOOI STENEN 
1050 GOSUB 3460 
1060 E=E+1:D=1 
1070 IF E>2 THEN 1260 
1080 IF D>5 THEN 1210 
1090 A$=INKEY* 

1100 IF STICK<0)=5 THEN LINE <235,40 

)-(240,128),4,BF:GOTO 1260 

1110 IF A$="" THEN 1090 

1120 IF A*=CHR*<13) THEN 1210 

1130 IF A*=CHR*(B> AND D>1 THEN D=D- 

1:LINE <235,20+D(D)*20)-<240,2B+D(D) 

*20),4,BF 

1140 FÖR 1=1 TO 5 

1150 IF NOT<I=VAL<A$) AND I>D<D-1>) 

THEN 1190 

1160 D(D)=I:D=D+1 

1170 PRESET (235,20+1*20) 

1180 PRINT#1,"«» 

1190 NEXT I 
1200 GOTO 1080 
1210 D=D—1 

1220 IF D=0 THEN 1250 
1230 GOSUB 3460 

1240 LINE (235,40)-<240,128) ,4, BF 
1250 GOTO 1060 
1260 ! 

1270 E=0 
1280 : 

1290 ' CONTROLEER ARRAY ’DOBB’ 

1300 Y=0 

1310 PUT SPRITE 7,(201,1),15 
1320 FOR 1=1 TO 150:NEXT ï 
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1330 IF STICK<0) = 1 AND Y>1 THEN Y=Y- 
1:GOTO 1370 

1340 IF STICK<0)=5 AND Y<!3 THEN Y=Y 
+ 1: GOTO 1370 

1350 IF INKEY*=CHR*<13> AND Y>0 THEN 
1420 

1360 GOTO 1320 
1370 ! 

1380 IF Y<7 THEN PUT SPRITE 7,<201,Y 
*10+1) ELSE PUT SPRITE 7,<201,Y*10+1 
B) 

1390 PUT SPRITE 8,STEP<-190,0),15 
1400 GOTO 1320 
1410 ! 

1420 IF N < Y,SP) THEN 1320 ELSE N(Y,S 
P) = 1 
1430 s 

1440 • PUNTENTELLING 
1450 IF Y>6 THEN 1600 
1460 : 

1470 51 ONDERSTE HELFT 

1480 TEL=0 

1490 FOR 1=1 TO 5 

1500 IF DOB <I)=Y THEN TEL=TEL+1 

1510 NEXT I 

1520 IF Y*TEL=0 THEN 3360 
1530 PRESET <150,Y*10+2) 

1540 PRINT#1,USING "###";Y*TEL 

1550 PT < Y, SP ) =Y*TEL 

1560 SO < SP)=SO(SP)+PT < Y,SP) 

1570 GOSUB 35408’ZET SCORE ONDER 
1580 GOTO 2970 
1590 s 

1600 ’ BOVENSTE HELFT 
1610 IF Y< >7 THEN 1810 
1620 ! 

1630 * THREE OF A KIND Y=7 

1640 FOR 1=1 TO 6 
1650 K=0 

1660 FOR 3 = 1 TO 5 

1670 IF I=DOB < J) THEN K=K+1 
1680 NEXT 3 

1690 IF K>=3 THEN 1740 
1700 NEXT I 
1710 ! 

1720 ’ KAN NIET 

1730 PT < Y,SP)=0:GOTO 3360 

1740 K=0 

1750 FOR 1=1 TO 5 
1760 K=K+DOB(I) 

1770 NEXT I 
1780 PT<Y,SP)=K 
1790 GOTO 2970 
1800 : 

1810 IF Y< >8 THEN 2010 
1820 ’ CARRÉ Y=8 
1830 FOR 1=1 TO 6 
1840 K=0 

1850 FOR J=1 TO 5 

1860 IF I=DOB(J) THEN K=K+1 

1870 NEXT J 

1880 IF K>=4 THEN 1940 
1B90 NEX‘1 I 
1900 ! 

1910 ’ KAN NIET 

1920 PT<Y,SP)=0sGOTO 3360 

1930 ! 

1940 K=0 

1950 FOR 1=1 TO 5 
1960 K=K+DOB <I) 

1970 NEXT 
1980 PT(Y,SP)=K 
1990 GOTO 2970 
2000 ! 

2010 IF Y< >9 THEN 2160 
2020 * FULL HOUSE Y=9 
2030 FOR 1=1 TO 6 
2040 K=0 


2050 FOR 3 = 1 TO 5 

2060 IF DOB <3) = 1 THEN K=K+1 

2070 NEXT J 

2080 IF K< >0 AND K<>2 AND K<>3 AND K 

05 THEN 2130 

2090 NEXT I 

2100 PT<Y,SP)=25 

2110 GOTO 2970 

2120 ! 

2130 ’ KAN NIET 

2140 PT < Y,SP)=0:GOTO 3360 

2150 s 

2160 IF Y< >10 THEN 2500 
2170 ; 

2180 ’ KLEINE STRAAT Y=10 

2190 FOR 1=1 TO 4 
2200 K=0 

2210 FOR J=1 TO 5 

2220 IF DOB(J) = 1 THEN K=1 

2230 NEXT J 

2240 IF K=0 THEN 2270 

2250 NEXT I 

2260 GOTO 2420 

2270 FOR 1=2 TO 5 

2280 K=0 

2290 FOR J=1 TO 5 

2300 IF DOB < J) = 1 THEN K=1 

2310 NEXT 3 

2320 IF K=0 THEN 2350 

2330 NEXT I 

2340 GOTO 2420 

2350 FOR 1=3 TO 6 

2360 K=0 

2370 FOR J=1 TO 5 

2380 IF DOB < J > = 1 THEN K=1 

2390 NEXT 3 

2400 IF K=0 THEN 2460 

2410 NEXT I 

2420 ! 

2430 PT(Y,SP)=30 
2440 GOTO 2970 
2450 ! 

2460 * KAN NIET 
2470 PT(Y,SP)=0 
2480 GOTO 3360 
2490 ï 

2500 IF Y< >11 THEN 2760 
2510 ! 

2520 ? GROTE STRAAT Y=ll 
2530 FOR 1=1 TO 5 
2540 K=0 

2550 FOR 3=1 TO 5 

2560 IF DOB(J) = I THEN K=1 

2570 NEXT J 

2580 IF K=0 THEN 2610 

2590 NEXT I 

2600 GOTO 2730 

2610 FOR 1=2 TO 6 

2620 K=0 

2630 FOR J=1 TO 5 

2640 IF DOB <J) = 1 THEN K=1 

2650 NEXT 3 

2660 IF K=0 THEN 2700 

2670 NEXT I 

2680 GOTO 2730 

2690 8 

2700 ’ KAN NIET 

2710 PT(Y,SP)=0sGOTO 3360 

2720 * 

2730 PT<Y,SP)=40 
2740 GOTO 2970 

2760 IF Y< >12 THEN 2890 
2770 : 

2780 ’ YATHZEE Y=12 
2790 FOR 1=2 TO 5 

2800 IF DOB (IX >DOB < 1) THEN 2860 
2810 NEXT I 
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2820 IF PT(Y,SP)=0 THEN PT(Y,SP)=50 
ELSE PT(Y,SP)=PT(Y,SP)+100 
2830 LINE (146,13B)-(199,146),4,BF 
2840 GOTO 2970 
2850 : 

?RA<?1 * k'AM MTPT 

2870 IF PT (Y,SP)=0 THEN N(Y,SP)=2:G0 
70 3360 ELSE 1320 
2880 ! 

2890 * CHANCE Y=13 

2900 K“0 

2910 FOR 1=1 TO 5 
2920 K-K+DOB(I) 

2930 NEXT I 
2940 : 

2950 PT(Y,SP)=K 
2960 s 
2970 REM 

2980 IF PT <Y,SP)=0 OR Y=12 OR N(12,S 

PX>1 THEN 3160 

2990 FOR 1=2 TO 5 

3000 IF DOB <I)< >DOB(1) THEN 3160 

3010 NEXT I 

3020 SB(SP)=SB(SP)+100 
3030 ST(SP)=SB(SP)+SO(SP) 

3040 FOR 1=1 TO 10 
3050 PRESET (150,139) 

3060 PRINT#1,”HOPPA!" 

3070 FOR J=1 TO 100:NEXT J 

3080 LINE (150, 139)/-(199, 145) ,4, BF 

3090 NEXT I 

3100 PT(12,SP)=PT (72,SP)+100 
3110 PRESET (150,139) 

3120 PRINT#1,USING "###”;PT(12,SP) 
3130 LINE (146,160)-(199,172),4,BF 
3140 PRESET (150,162) 

3150 PRINT# 1, USING "###";SB(SP) 

3160 IF Y<7 GOTO 3210 

3170 IF Y< >12 THEN SB<SP)=SB(SP)+PT( 

Y, SP) 

3180 IF Y=12 AND N(Y,SP)=1 THEN IF P 
T < Y,SP ) >50 THEN SB(SP) =SB(SP) +100 EL 
SE SB(SP)=SB(SP)+50 
3190 : 

3200 GOSUB 3620: ? ZET SCORE BOVEN 
3210 LINE (30,0)—(255, 9),4,BF 
3220 PRESET (30,0) 

3230 PRINT#1,"Toets <RETURN>" 

3240 IF INKEY*<>CHR$(13) THEN 3240 
3250 PUT SPRITE 7,(201,1),14 
3260 PUT SPRITE 8,,0 
3270 : 

3280 ’ CONTROLEER EINDE SPEL 
3290 K=0 

3300 FOR 1=1 TO MS 
3310 K=K+N(14,I) 

3320 NEXT I 

3330 IF K=MS THEN 4280 
3340 GOTO 950 
3350 : 

3360 ’ MELDING KAN NIET 
3370 IF Y>6 THEN K=19 ELSE K=2 
3380 PRESET (146,Y*10+K) 

3390 PRINT#1," ? 0 7 " 

3400 FOR 1=1 TO 150:NEXT I 

3410 LINE (146,Y*10+K)-(199,Y*10+K+7 

) , 4,BF 

3420 FOR 1=1 TO 100:NEXT I 

3430 IF STICK(0)< >0 THEN N(Y,SP)=0:G 

OTO 1330 

3440 IF INKEY*OCHR$(13) THEN 3380 
3450 IF Y>6 THEN 2970 ELSE 1530 
3460 : 

3470 * GOOI STENEN 

3480 FOR 1=1 TO RND(1)*5+10 

3490 FOR J=1 TO D 

3500 DOB(D < J))=INT(RND(1)#6)+1 


3510 PUT SPRITE D(3),(221,20+D( 3 )#20 
ï , ,DOB(D(J)) 

3520 NEXT J,I 
3530 RETURN 
3540 : 

3550 ’ ZET SCORE ONDERSTE HELFT 
3560 GOSUB 4160:* BONUS ? 

3570 LINE (146,73)-(199,84),4,BF 
3580 PRESET (150,75) 

3590 GOSUB 3710 :* ZET TOTALE SCORE 
3600 RETURN 
3610 : 

3620 : 

3630 ’ ZET SCORE BOVENSTE HELFT 
3640 PRESET (150,Y*10+19) 

3650 PRINT#1,USING "###";PT(Y,SP) 

3660 LINE (146,160)-(199,172),4,BF 
3670 PRESET (150,162) 

3680 PRINT# 1 ,USING "###";SB(SP) 

3690 GOSUB 3710:’ZET TOTALE SCORE 
3700 RETURN 
3710 : 

3720 ’ ZET TOTALE SCORE 
3730 ST(SP)=SB(SP)+SO < SP) 

3740 LINE (146,176)-(199,188),4,BF 
3750 PRESET (150,17fe) 

3760 PRINT# 1 ,USING "###";ST(SP) 

3770 RETURN 
3780 : 

3790 * NIEUWE SPELER 
3800 : 

3810 ' ZET NAAM 

3820 LINE (30,0)-(255,9),4,BF 

3830 PRESET (30,0) 

3840 PRINT# 1 ,N$(SP) 

3850 IF MS =1 THEN 4080 
3860 : 

3870 * WIS SCORE ONDER 
3880 FOR 1=1 TO 6 

3890 LINE (150,1*10+2)-(170,1*10+9). 

4 BF 

3900 IF N(I,SP)=0 THEN 3930 
3910 PRESET'(150,1*10+2) 

3920 PRINT# 1 ,USING "###";PT(I,SP) 

3930 NEXT I ' 

3940 : 

3950 GOSUB 3540:”SCORE ONDER 
3960 : 

3970 ' WIS SCORE BOVEN 
3980 FOR 1=7 TO 13 

3990 LINE (150,I *10+19)-(180,1*10+25 

) 4 pp 

4000 IF N (I,SP)=0 THEN 4030 
4010 PRESET (150,1*10+19) 

4020 PRINT#1,USING "###";PT(I,SP) 

4030 NEXT I 

4040 LINE (146,160)-(180,172),4,BF 
4050 PRESET (150,162) 

4060 PRINT#1,USING "###":SB(SP) 

4070 : 

4080 * DOET SPELER NOG MEE ? 

4090 IF N(14,SP) THEN 4150 
4100 K=0 

4110 FOR 1=1 TO 13 
4120 K=K+S 6 N(N(I,SP)) 

4130 NEXT I 

4140 IF K=13 THEN N(14,SP)=1 
4150 RETURN 
4160 : 

4170 ’ BONUS ??? 

4180 IF N( 0 ,SP) OR SO(SP)<63 THEN 42 
70 

4190 SO(SP)=SÜ(SP)+35 

4200 N < 0,SP)=1 

4210 FOR 1=1 TO 10 

4220 LINE (146,73)—(199,84),4,BF 

4230 PRESET (146,75) 

4240 PRINT#1,"<BONUS >" 
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4250 FOR J = 1 TO 100:NEXT J 
4260 IMEXT I 
4270 RETURN 
4280 : 

4290 21 EINDE SPEL 

4300 FOR 1*1 TO MS 

4310 FOR J=1 TO I 

4320 IF ST(IXST<J) THEN 4440 


4340 * VERWISSEL 2 PERSONEN 
4350 SWAP ST(I),ST(J) 

4360 SWAP SO<I),SO(J) 

4370 SWAP SB(1) «SB(J) 

4380 SWAP NS<I),NS<3> 

4390 FOR K=0 TO 13 
4400 SWAP PT(K,I),PT <K S J) 
4410 SWAP N < K,I), N < K,J) 
4420 NEXT K 

4430 SWAP N(K,I>, N(K,J> 
4440 NEXT J,I 
4450 s 

4460 SCREEN 0 
4470 FOR 1=1 TO MS 


4480 PRINT NS (I) , USING "###";ST(I) 

4490 PRINT 

4500 NEXT I 

4510 PRINT:PRINT 

4520 : 

4530 PRINT "Wilt U de uitslag op de 
printer ? ";:US=INPUTS(1) 

4540 IF U$="N" OR U*="n M THEN 4840 E 
LSE IF U$<> ,, J H AND U*<>"j" THEN US=I 
NPUTS(1):GOTO 4540EL5EPRINT:PRI NT 
4550 ' PRINTER 

4560 PRINT "Zet de printer op een ni 
euwe "SPRINT 

4570 LINE INPUT "bladzijde en toets 
<RETURN>...";US:CLS 
4580 : 

4590 US=" |- 

-r-1“ 

4600 FOR ( Y=l TO MS 


4610 LPRINT" 


r 


II 


4620 LPRINT" 

I II 


YATHZEE 


r 

am: 


": NS(Y):TAB(27) 


4630'LPRINT" |- 

4640 LPRINT"!na 

( II I tl * 

4650 LPRINT" f5sss=====5==5sss===== 

— — — — J li ' 

4660'FOR J=1 


4670 LPRINT 
### !";PT < J 
4680'NEXT J 



PYS(J> 


USING 


4690 LPRINT US 


4700 LPRINT"! 
"5USING " ##tt 
4710 LPRINT US 
4720 LPRINT"! 
"5USING " ### 
4730 LPRINT US 


Subtotaal A: 
"ïSO(Y)-35*N(0,Y) 

BONUS s 

"335*N<0,Y) 


II 


4740 FOR J=7 TO 13 


4750 LPRINT"I"; 

|";PT < J,Y > 1 

4760 NEXT J 
4770 LPRINT US 
4780 LPRINT"! 

USING " ### I 
4790 LPRINT US 1 
4800 LPRINT"! 

“!USING " ### j 
4810 LPRINT"'—- 

i 


PYS(J);USING 


Subtotaal B: 
";SB(Y) 

TOTAAL : 
"; ST (Y) 


j 


l> 


### 


4820 LPRINT:LPRINT:LPRINT 
4830 NEXT Y 
4840 END 
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720 - 40 
730 - 54 
740 - 40 
750 - 180 
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55067 


MINI-PACMAN 


10 CLSsKEY OFF 

20 ON STOP GOSUB 1060:STOP ON 
30 DEFINTA—Z:B=BASE(2) 

40 FOR J—65 TO 74 
50 A=J*B 
60 FOR 1=0 TO 7 
70 READ D$ 

80 VPOKE A+B+1, VAL < ”?<H” +D$) 

90 NEXT I 
100 NEXT J 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


E0, 

20 , 

IC, 

20 , 

48, 

20 , 

30, 

20 , 

30, 

30, 


B0,78, 
70,B8, 
34,78, 
70,EB, 
CC,AC, 
70,BB, 
78,FC, 
70,BB, 
78,D4, 
78,AC, 


38,18,38, 
F8, 

70, 


60, 

F8, 


70, 
F8, 
FC,78,30, 
F8,FB,F8, 
AC,CC,48, 
FB!, FB, F8, 
FC,FC,FC, 
FC,FC,FC, 


F0, 

70, 

3C, 

70, 

00 , 

70, 

00 , 

70, 

A8, 

54, 


60 

20 

18 

20 

00 

20 

00 

20 

AB 

54 


210 DIM C(27,18) 

220 C <27,14)=32:C(11,18)=32 
230 DEF FNR(A)=SGN(RND(A) -. 5) 



240 DEF FNL$(X,Y)=STRING$(ABS<<X+4)-POS(1)),2B.5-SGN<(X + 4)-POS(1))/2)+STR 
ÏNGS(ABS((Y-1)—CSRL ï N) ,30.5+SGN< (Y-1)-CSRLIN)/2) 

250 RESTORE 290 

260 FOR 1=1 TO 7 STEP 2 

270 READ X(I),Y(I),S(I) 

280 NEXT I 

290 DATA 0,-1,69,1,0,67,0,1,71,-1,0,65 

300 MS=2:SH=1:T1=0:T2=l;T3=73:T4=74: SC=0:TE=0: SO=0 

310 CC=46:P1=25:Q1=2:P2=P1:G2=Q1: PR=0 :QR=1 

320 GOSUB 1070'PRINTEN 

330 LOCATE 10,20:PRINT "SCore:” 

X40 x=2:Y=2:P=- 4 :Q=1:N =90 

350 PLAY "T200S8M4000LBEDCEDCR64CDEFGGGE" 

360 PRINT FNL$(X,Y);" M 
370 IF X= 0 THEN X=26:Y=14 
380 IF X=27 THEN X= 1:Y=11 
390 IF Y= 0 THEN X=11:Y=17 
400 IF Y=18 THEN X=23:Y= 1 








































410 R=C(X,Y> 

420 ÏF R=219 THEN X=P:Y=Q:GOTO 470 

430 IF R< >32 THEN GOSUB 710:C(X,Y)=32 ELSE BEEP:SC=SC-1 
440 PRINT FNL*(P,Q>;" " 

450 PRINT FNL*<x;Y);CHR*<S(5)+T1) 

4é>0 P=X: Q=Y s SWAP Tl, T2 
470 S=STICK <1) 

480 X=X+X<S>:Y=Y+Y<S) 

490 SWAP T3,T4 
500 P1=P1+PR 
510 Q1=Q1+QR 

520 IF C(PI,Dl)=219 AND QR=0 THEN HR=PR: PR=0: QR=SGN(Y-Ql):PI=P2:Q1=Q2: 
FLSF 570 

530 P1=P1+PR:Q1=Q1+QR 

540 IF C(PI,Q1)=219 THEN QR=-QR: PR=0: PI=P2:Q1=Q2: ELSE 570 
550 P1=R1+PR:Q1=Q1+QR 

560 IF C <P1,01)=219 THEN QR=0: PR=-HR:PI=P2:Q1=Q2 ELSE 570 

570 IF C(PI,Dl)=219 AND PR=0 THEN HR=QR: QR=0: PR=SGN(X-Pl):P1=P2;Q1=Q2 EL 

SE 620 

580 Pl=Pl+PRsQl=Ql+QR 

590 ÏF C(PI,Dl)=219 THEN PR=-PR: QR=0: P1=P2:01=Q2 ELSE 620 
600 P1=P1+PR:Q1=Q1+QR 

610 IF C(P1,Q1)=219 THEN PR=0: QR=-HR:P1=P2:Q1=Q2 ELSE 620 

620 IF PR=0 AND QR=0 THEN IF RND(-TINE><.5 THEN PR=FNR(1) ELSE QR=FNR(1> 
630 PRINT FNL$(P2,Q2);CHR$(CC) 

640 PRINT FNL$ (P1, Q1) ; CHR$ (T3) 

650 C(P2,Q2)=CC 

660 CC=C(P1,Q1) : C(PI,Dl> =8-1 

670 P2=P1ï Q2=01 

680 IF C ( X , Y)=-1 THEN 790’VER!„OREN 
690 IF S(S)=0 THEN 470 
700 GOTO 370 

710 IF R=-l THEN 790’VERLOREN 
720 IF R=46 THEN SC=SC+10:TE=TE+1 
730 IF R=42 THEN SC=SC+50:TE=TE+1 
740 LOCATE 16,20:PRINT SC 
750 IF TE=SO THEN 950’GEWONNEN 
760 PLAY "VI5M900S8L64O3" 

770 IF R=46 THEN PLAY "A" ELSE PLAY M B" 

780 RETURN 

790 REN VERLOREN******^************ 

800 PLAY"T255L8CDER64ER64ER64DCF1" 

810 FOR 1=1 fO 100:COLOR 1,15:C0L0R 15,1:NEXT I:CDLOR 15,4,4 
820 PRINT FNL$ (P, Q) ; " 

830 PRINT FNLst ( X , Y) ; 11 fl*' 

840 FOR ï^l TD 15 

B50 FOR J=0 TO 7 

B60 VPOKE B+ 256+255 

870 VPOKE B+1752+J,0 

880 NE X T J 

B90 FOR J=0 TO 7 

900 VPOKE B+ 256+J„0 

910 VPOKE B+1752+CJ, 255 

920 NEXT J 

930 NEXT I 

940 A$="Ver1 oren":GOTO 990 

950 REN GEWONNEN******************** 

960 PLAY"VI5L1603CEG04CEG05CE2","VI51. J603EG04CE605CEG2","VI5L1603B04CEG05 
CEG06C2" 

970 CLS:SH=SH+1:IF 5H<=NS THEN TE=0: SO=0:GOTO 310 
980 A$="GewDnnen" 

990 CLS:PRINT A$;" !!!" 

1000 PRINT:PRINT "Net ";SC;"punten." 

1010 LOCATE 8,10 

1020 PRINT"Wilt U nog een keer ?":PRINJ:PRINT TAB(13);"<VUUR>" 

1030 FOR A=1 TO 1000 

1040 IF STRÏGU) THEN 300 

1050 NEXT A 

1060 SCREEN0: KEYON:END 

1070 REN PRINTEN******************** 

1080 CLS: ON SH GOTO 1090,1100 
1090 RESTDRE 1220:GOTO 1110 
1100 RESTORE 1400:GOTO 1110 
1110 FOR 1=1 TO 17 
1120 READ D* 

1130 PRINT TAB(5);D$ 

1135 Pl.AY "VI 5SBN4000LBN= I; " 

1140 FOR J=1 TO 26 
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1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 


C(J,I)=ASC(MID*<D ,J,1)) 

IF C(J, 1)0219 THEN SO=SO+1 
NEXT J 
NEXT I 
RETURN 


REM DATA SCHERM 1 +++++++++++++ 
REM 12345678901234567890123456 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



DATA ■. . 

DATA ■. **■. . . . 
DATA 

REM DATA SCHERM 



REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


DATA 


12345678901234567890123456 



C0NTR0LETELUN6 
Regel: 10 - 176 

Regel: 20 - 190 

Regel: 30 - 209 

Regel: 40 - 157 

Regel: 50 - 198 

Regel: 60 - 92 
Regel: 70 - 143 

Regel: 80-47 

Regel: 90 - 44 
Regel: 100 - 237 
Regel: 110 - 73 
Regel: 120 - 94 
Regel: 130 - 53 
Regel: 140 - 97 
Regel: 150 - 105 
Regel; 160 - 94 
Regel: 170 - 105 
Regel: 180 - 94 
Regel: 190 - 175 
Regel: 200 - 155 
Regel: 210 - 177 
Regel: 220 - 120 
Regel: 230 - 244 
Regel: 240 - 6 

Regel: 250 - 221 
Regel: 260 - 76 
Regel: 270 - 17 
Regel: 280 - 236 
Regel: 290 - 21 
Regel: 300 - 137 
Regel: 310 - 86 
Regel: 320 - 39 
Regel: 330 - 165 
Regel: 340 - 219 
Regel: 350 - 171 
Regel: 360 - 204 
Regel: 370 - 76 
Regel: 380 - 75 


Regel: 390 - 65 
Regel: 400 - 79 
Regel: 410 - 178 
Regel: 420 - 34 
Regel: 430 - 164 
Regel: 440 - 188 
Regel: 450 - 1B7 
Regel: 460 - 159 
Regel: 470 - 70 
Regel: 480 - 85 
Regel: 490 - 255 
Regel: 500 - 196 
Regel: 510 - 199 
Regel: 520 - 231 
Regel: 530 - 133 
Regel: 540 - 157 
Regel: 550 - 133 
Regel: 560 - 90 
Regel: 570 - 189 
Regelt 580 - 101 
Regel: 590 - 116 
Regel: 600 - 101 
Regel: 610 - 108 
Regel: 620 - 187 
Regel: 630 - 72 
Regel: 640 - 71 
Regel: 650 - 90 
Regel: 660 - 72 
Regel: 670 - 64 
Regel: 680 - 138 
Regel: 690 - 161 
Regel: 700 - 42 
Regel: 710 - 107 
Regel: 720 - 198 
Regel: 730 - 234 
Regel: 740 - 231 
Regel: 750 - 240 
Regel: 760 - 138 
Regel: 770 - 43 


Regel: * 80 — 142 
Regel: 790 - 0 
Regel: 800 - 1 
Regel: 810 - 59 
Regel: 820 - 1BB 
Regel: 830 - 239 
Regel: 840 - 35 
Regel: 850 - 93 
Regel: 860 - 75 
Regel: 870 - 11 
Regel: 880 - 45 
Regel: 890 - 93 
Regel: 900 - 7B 
Regel: 910 - B 
Regel: 920 - 45 
Regel: 930 - 236 
Regel: 940 - 183 
Regel: 950 - 0 
Regel: 960 - 96 
Regel: 970 - 183 
Regel: 980 - 217 
Regel: 990 - 241 
Regel: 1000 - 30 
Regel: 1010 - 66 
Regel: 1020 - 237 
Regel: 1030 - 4 
Regel: 1040 - 69 
Regel: 1050 - 228 
Regel: 1060 - 44 
Regel: 1070 - 0 
Regel: 1080 - 240 
Regel: 1090 - 205 
Regel: 1100 - 130 
Regel: 1110 - 37 
Regel: 1120 - 79 
Regel: 1130 - 174 
Regel: 1135 - 48 
Regel: 1140 - 111 
Regel: 1150 - 146 


Regel: 1160 - 150 
Regel: 1170 - 45 
Regel: 1180 - 236 
Regel: 1190 - 142 
Regel: 1200 - 0 
Regel: 1210 - 0 
Regel: 1220 - 53 
Regel: 1230 - B3 
Regel: 1240 - 108 
Regel: 1250 - 101 
Regel: 1260 - 191 
Regel: 1270 - 191 
Regel: 1280 - 194 
Regel: 1290 - 108 
Regel: 1300 - 10 


Regel; 1310 - 184 
Regel: 1320 - 191 
Regel: 1330 - 97 
Regel: 1340 - 14 
Regel: 1350 - 107 
Regel: 1360 - 187 
Regel: 1370 - 82 
Regel: 1380 - 53 
Regel: 1390 - 0 
Regel: 1400 - 0 
Regel: 1410 - 53 
Regel: 1420 - 165 
Regel: 1430 - 115 
Regel: 1440 - 122 
Regel: 1450 - 122 


Rege 
Regel; 
Regel: 



: 


Regel: 
Regel: 
Regel: 



: 




Regel: 

‘ j»lï 

Totaal: 


1460 - 86 
1470 - 190 
1480 - 167 
1490 - 94 
1500 - 10 
1510 - 104 
1520 - 173 
1530 - 197 
1540 - 205 
1550 - 115 
1560 - 165 
1570 - 53 
19022 


FILOTEL 

Hst Groningse softwarshuis Filosoft 
is gestart met een databank volgens 
het Viewdata-protocol: FILOTEL. 

Iedere huiscomputeraar die met 
Viditel kan communiceren, kan ook 
-en zonder 1idmaatschapskosten e.d.- 
met FILOTEL kontakt opnemen. 

De miniatuur-Viditel bevat 800 
pagina's nieuws en tips voor 
gebruikers. Er is ook plaats inge¬ 
ruimd voor een prikbord, waarop men 
mededelingen voor collega- gebrui¬ 
kers kwijt kan. 

FILOTEL is 24 uur per dag bereikbaar 
onder telefoonnummer: 050-145174 

Nadere inlichtingen kunnen worden 
verstrekt door: 

Henk Menninga (050-13746). 










































































































TILBURGE CM-GROUP OP DE INTERNATIONAL 
COMPUTER MUSIC CONFERENCE TE 'S GRAVENHAGE 


DE CM-GROUP: 

In Tilburg is al enkele jaren een aantal 
mensen bezig met het maken van elec- 
tronische muziek. Sinds YAMAHA de CX5M 
computer op de markt bracht houden zij 
zich in toenemende mate bezig met 
computermuziek. Zij hebben zich verenigd 
onder de naara CM-group. De letters CM 
staan voor Computer Music en Carrier 
Modulator. Deze twee laatste termen hebben 
alles te maken met de manier van klank- 
opwekking zoals die met Yamaha synthe¬ 
sizers gerealiseerd wordt. 

De CM-group bestaat uit zeven mensen die 
samen en onafhankelijk van elkaar compu¬ 
termuziek maken. In de CM-group zitten 
onder andere twee docenten electronische 
muziek, een docent maatschappijleer, een 
computerprogrammeur, een grafisch ontwer¬ 
per, een popmuzikant en een werkloze, zij 
hebben al diverse keren opgetreden in 
Tilburg en omgeving. Ook hebben zij enkele 
composities gemaakt voor een uitvoering 
van de dansafdeling van de Tilburgse 
Muziekschool. 

Dat de CM-group succes heeft, blijkt wel 
uit het feit dat zij als eerste niet 

professionele groep is uitgenodigd op de 
International Computer Music Conference 
die dit iaar in 's-Gravenhage gehouden 
wordt op 20-24 oktober. Dit bewijst dat 
internationaal opvallende en gewaardeerde 
computermuziek niet alleen met peperdure 
systemen gemaakt hoeft te worden. Op deze 
conferentie komen normaal gesproken alleen 
mensen van de grote onderzoeksinstituten 
op het gebied van geluidsleer zoals MIT en 
IRCAM. Er zijn concerten, demonstraties en 
lezingen over de nieuwste ontwikkelingen 
op het gebied van klanksynthese. 

Het bijzondere aan de Tilburgse CM-group 
is, dat zij vrijwel alleen gebruik maakt 
van de YAMAHA CX5M~computer; dit is een 
standaard MSX-1 computer met extra 
ingebouwde synthesizer-unit. 

DE DOOR DE CM-GROUP VOOR DE ICMC 
ONTWIKKELDE SOFTWARE: 

Naast een aantal composities, dat In Den 
Haag doorlopend te beluisteren is, heeft 
de CM-group een interaktief computer¬ 
programma ontwikkeld. Dit programma werkt 
alleen as de gebruiker een aantal 
essent iele zaken betreffende muziek heeft 
ingevoerd. Met deze data gaat de computer 
vervolgens improviseren. De hoeveelheid 
data die ingevoerd wordt, is afhankelijk 
van de wens van de gebruiker. Als veel 
gegevens ingevoerd worden, zal de improvi- 
sat Le ingewikkelder en onvoorspelbaarder 
zijn, als er weinig gegevens ingevoerd 
worden, wordt de improvisatie overzichte¬ 
lijker. De gegevens die ingevoerd moeten 
worden hebben o.a. betrekking op: 


- toonhoogte 

- toonlengte 

- aanslaggevoeligheid 

- rustiengte 

- klanken 

Tijdens de computer-improvisatie kunnen de 
ingevoerde gegevens gewijzigd worden zodat 
de improvisatie voortdurend van karakter 
kan veranderen. Op deze manier is het 
mogelijk om een compositie te krijgen die 
door een mens nooit gespeeld kan worden. 
!n dit programma zijn vrijwel alle 
mogelijkheden van de Yamaha computer 
verwerkt. 

Correspondentieadres CM-Group: 

Tilburgse Muziekschool 
t.a.v. Synthese 
Tivolistraat 6 
5017 HP Tilburg 
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Deze nieuwe Quickshot joystick is 
uitgerust met microswitches en heeft een 
automatisch vuurknop. , 

De voordelen van microswitches zijn: 

- Grotere betrouwbaarheid, het contact op¬ 
pervlak is 50% groter dan bij een druk- 
contact. 

- Makkelijker in gebruik omdat bij elke 
beweging een klik hoorbaar is waardoor 
direct kan worden vastgesteld of de 
gewenste beweging ook daadwerkelijk is 
uitgevoerd. 

- Langere levensduur. Een conventionele 
joystick geeft het gemiddeld, na 300.000 
keer contact te hebben gemaakt, op. Met 
microswitches kan meer dan 1.000.000 ke¬ 
ren contact worden gemaakt. 

De SVI111 Turbo is ook te gebruiken met de 
MSX computers en wordt geïntroduceerd op 
de Fiiato 1986 (29-08 t/m 7-09) op de 

Spectravideo stand (nr. 241). De prijs 
voor een joystick van deze klasse is zeer 
scherp en bedraagt 59,*. 
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SPECTRAVIDEO 


SPECTRAVIDEO PC 

MET S /**# fó 

MSX EIGENSCHAPPEN ~ 


Spectravideo heeft als trendsetter op MSX 
gebied in nauwe samenwerking met Microsoft 
haar range uitgebreid met een 16 bits 
machine, de SV 838. 

SPECTRAVIDEO SV 838 X'PRESS 16 


De machine, waarop door vele mensen met 
smart wordt gewacht, is vast en zeker de 
nieuwe van Spectravideo. Dat ze daar bij 
SVI weten wat computers zijn, raag blijken 
uit het feit dat men reeds 4 modellen 
heeft afgeleverd, welke allen getuigen van 
groot vernuft. De eerste twee modellen 
waren de SV 318 en 328. Deze computers 
hebben model gestaan voor de later 
ontwikkelde MSX homecomputer standaard. 
Spectravideo bracht zijn eerste MSX 
homecomputer naar Nederland tijdens de 
vorige Firato. Dat was de SV728. Eind 1983 
werd er een zeer uitgebreide MSX-1 machine 
aan toegevoegd, de X'Press genaamd, 
waaraan wij enige tijd geleden nog ruime 
aandacht hebben besteed. 

Alle computers hebben gemeen dat ze sterk 

neigen naar professionele toepassingen. 
Zoals u misschien reeds heeft opgemerkt is 
de MSX standaard helaas niet in elk land 
geworden waar de grote Japanse merken 
(Spectravideo meegerekend) op hadden 
gehoopt. Zo is bijvoorbeeld de MSX markt 
in Engeland, Frankrijk en Duitsland zeer 
beperkt. De software huizen in Engeland 
leveren voor het overgrote deel aan 
exporteurs, die de software dan leveren 
aan landen als Nederland, Italië, Spanje 
etc., waar de MSX wel is aangeslagen. 
Spectravideo heeft daarom de beslissing 
genomen om een al eerder geplande MSX-2 
computer niet op de Europese markt te 
lanceren. Daarvoor in de plaats werd 
gekozen voor een systeem dat naar ons Idee 
inderdaad een veel betere kans van slagen 
heeft. De laatste SVI computer telg loopt 
geheel mee In de trend die zich de laatste 
tijd in computerland afspeelt. De computer 
is nl. volledig IBM/MS “DOS compatible, 
waardoor er voor deze machine een schat 
aan programmatuur en randapparatuur lever¬ 
baar is. Maar...., zult u wellicht 
opmerken, hoe zit het dan met MSX? Dat het 
daarmee ook goed zit zult u merken in de 
loop van dit artikel. 

De SVI 838 X'Press 16 (een mond vol) is 
een MS-DOS machine met MSX-2 features. 
De machine is te gebruiken als IBM 
compatible PC, maar tegelijkertijd is het 
mogelijk om via de meegeleverde "Enhanced" 

GW-Baslc te beschikken over de 
voortreffelijke graphic- en geluids- 
features van de MSX-2. 


MS-DOS COMPATIBLE 

De Spectravideo X'Press 16 is volledig IBM 
compatible. Dat betekent dat de uitge¬ 
breide programmatuur en randapparatuur die 
beschikbaar is voor de IBM PC/XT direct 
bruikbaar is op de X'Press 16. 


Een greep uit de reeks PC-programma s die 
wij hebben geprobeerd en zonder problemen 


werken op de X'Press 16: 

- Lotus 1—2—3 

- Symphony 

- dBase 1 en III 

- Wordstar 

- Fllght simulator 

- Framework 

- GEM 

- Sidekick 

- PFS serie software 



Dit korte software-overzicht toont duide¬ 
lijk aan dat het met de IBM-corapatt- 
biliteit wel goed zit. 


HARDWARE 

De hardware is opgebouwd rond de snelle 16 
bits 8088 microprocessor. Deze Processor 
heeft de beschikking over een ingebouwd 
geheugen van 256K RAM. Door middel van een 
uitbreiding is de machine In staat om 640K 
RAM te gebruiken. 

GRAPHICS 

Wat vooral opvalt aan deze computer zijn 
de uitzonderlijk goede videoprestatles. 
Voor dit doel is als videoprocessor de 
z.g. AVDP (Advanced Video Display 
Processor) toegepast, die zich ook in de 
MSX-2 reeks van computers bevindt. Deze 
video processor heeft de beschikking over 
een eigen RAM geheugen van 128K! Als 
resultaat hiervan kunt u werken met 3 
verschillende video outputs, te weten: 

- PC standaard video (80 kolommen) 

- PC standaard flicker-free colour 
graphics adaptor (CGA) 

- Advanced video output 

Allen hebben de beschikking over 512 
kleuren. 

ADVANCED VIDEO OUTPUT: 

Onder deze mode wordt de AVDP volledig 
benut. Er staat een reeks fabelachtige 
specificaties ter beschikking van de 
X'Press 16 gebruiker, waaronder: 

- AVDP (TMS 9938) met 128K. Video RAM 

- 256*212 pixel resolutie met 256 kleuren 
gelijktijdig op het scherm 
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- 512*212 pixel resolutie met 16 kleuren 
gelijktijdig op het scherm 

- 32 meerkleurige SPRITES gelijktijdig op 
het scherm 

- High level graphic commando's,, waaron¬ 
der het trekken van lijnen, opvuilen 
van vlakken etc. 

- Screen flipping mogelijkheden (voor 
animatie). 

INTERNAL SUPER IMPOSING (MS-DOS/MSX-2) 

Door de toepassing van -speciaal voor dit 
doel- ontwikkelde technologie is het 
mogelijk,, om beelden die gemaakt zijn 
onder PC-mode op beelden te zetten die 
gemaakt zijn met de AVDP. Dit biedt de 
mogelijkheid om bijvoorbeeld de gegevens 
uit een database of tekstverwerker te 
voorzien van schitterende illustraties. 
Tevens is het mogelijk om MSX-2 beelden 
te gebruiken als achtergrond bij een 
PC-prograrama. 

SOUND 

Naast de excellente graphische eigen¬ 
schappen, heeft de gebruiker van de 
X'Press 16 de beschikking over een 
geavanceerde geluidsgenerator. De geluids- 
generator heeft 3 geluidskanalen over een 
bereik van 8 oktaven. Tevens is voorzien 
in een z.g. "ENVELOPE" mode, om gebruik te 
kunnen maken van de reeds ingebouwde 

soundeffecten. 

MSX-2 COMPABILITEIT 

Door de toepassing van de MSX—2 AVDP en de 
MSX-2 audio generator, is het raogelijk 
door middel van een apart leverbare 
adapter MSX spellen (cartridges) te 
verwerken op de Spectravideo X'Press 16. 
Deze adapter (SV-811) wordt- gevoed door de 
computer en maakt gebruik van standaard 
MSX joysticks. 

ENHANCED GW-BASIC 

De IBM-PC en haar klonen hebben meestal de 
beschikking over een Microsoft GW-Basic 
interpreter. 

Deze BASIC ondersteunt slechts beperkt de 
grafische- en geluidsmogelijkheden. 

Enhanced GW-BASIC is te vergelijken met de 
BASIC die zich bevindt in de MSX-2 reeks 
van homecomputers, met daar bovenop nog 
enkele X'Press 16 specifieke statements en 
commando's. De extra mogelijkheden die de 
SV838 te bieden heeft t.o.v. de andere 
MS-DOS machines in de markt worden 
volledig ondersteund. 

VERDERE BIJZONDERHEDEN 

De computer wordt geleverd met een 5.25*’ 
360K diskdrive. Er is ruimte voor de 
inbouw van een tweede floppydrive of een 
harddisk. Het toetsenbord is afneembaar en 
volledig IBM compatible en heeft 83 
toetsen. Tevens is het toetsenbord 
voorzien van een 10 cijferig numeriek 
eiland. De computer is voorzien van de 
volgende standaard aansluitingen c.q. 1/0 
poorten: 

- PC standaard toetsenbord 

- Centronics parallel printer 

- Muis/lichtpen 


- Game poort 

- Monochrome coraposite video poort 

- Digitale en analoge RGB output poort 

- Audio output poort 

- Reset toets 

Uitbreidingsmogelijkheden zijn er in de 
vorm van: 

- PC/XT compatible uitbreidings s’ot 

- tweede drive of harddisk 

Bij de X'Press 16 worden de volgende 
accessoires standaard meegeleverd: 

Video kabel 

- RCA naar RCA 

- Voor aansluiting van een groene monitor 

Quickshot-X PC compatible analoog joystick 

- 2 BASE vuurknoppen 

- Zeer nauwkeurige besturing 

- Twee snelheden auto-firing mogelijkheid 

- Links-/rechtshandige schakelaar 

Systeem schijven 

- MS-DOS operating systeem en Utilities 

- "Enhanced" GW-BASIC (ondersteunt Video 

en Audio functies) 

- X'Press 16 en MS-DOS handboeken 

- "Enhanced" GW-BASIC handboek 

ACCESSOIRES 


Extra randapparatuur: 

SVI-811 MSX game adapter 

- compatible met vrijwel alle MSX game- 
cartridges 

- maakt gebruik van standaard MSX joy¬ 
sticks 

SVI-812 Low cost muitifunction card 

- 384K RAM 

- RS232C poort 

- Real time clock/calender 
SVI-813 Cooling fan 

- Voorkomt oververhitting bij zeer inten¬ 
sief gebruik 

SVI-814 PAL RF adapter 

- Voor aansluiting van een PAL KTV of 
coraposite kleuren monitor 

SVI-815 Monitor kabel 

- Voor aansluiting van een analoge RGB- 

monitor 

- D15 naar 21 pins 

SVI-816 Monitor kabel 

- Voor aansluiting van een digitale/ana¬ 
loge RGB monitor 

- Dl5 naar 8 pins 

Natuurlijk kunt u ook gebruik maken van 
alle, niet door SVI geproduceerde PC/XT 

uitbreidingskaarten. 

Al met al een hele waslijst. Wij zijn er 
van overtuigd, dat deze machine heel wat 
stof in computerland zal doen opwaaien. 
Spectravideo heeft een zeer goede^ 
beslissing genomen om het MS-DOS bestu- 
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ringssysteem te combineren met alle 
voortreffelijke MSX-2 eigenschappen om zo 
te komen tot een systeem dat zijn weerga 
niet kent. Onze mening is dat in deze 

prijsklasse echt niets beters te krijgen 
is. Zelfs de ruchtmakende Atari's kunnen 
de vergelijking met deze computer niet 
weerstaan. Hopelijk zal er snel veel (16 
bits) software op de markt komen welke 
gebruik maakt van de Advanced Video 
output. Wat denkt u bijvoorbeeld van 
CAD/CAM of dBase III met high resolution 
windowing. De computer kent vrijwel geen 
grenzen en zal zeker aanspreken bij een 
breed publiek. Dat zal niet alleen komen 
door de voorgenoemde specificaties maar 
zeker ook door het prijskaartje dat aan de 
computer zal komen te hangen: ca. 2000,= 


Stichting TROM 

Zo'n half jaar geleden werd de Stichting 
TRON-Nederland opgericht. 

Dit is een stichting op non-profit basis, 
die zich richt op de onderwijssector, 
zowel op het basisonderwijs, het speciaal 
onderwijs, het middelbaar onderwijs en op 
de hogere vormen van onderwijs. 

Men streeft ernaar nieuwe, didactisch 
verantwoorde educatieve software te ont¬ 
wikkelen, programma's die zowel indivi¬ 
dueel als klassikaal van opzet zijn. 

Om dit alles te kunnen bereiken heeft TRON 
voor een zeer specifieke structuur geko¬ 
zen. Zo gebruikt men bij de totstandkoming 
van de software 3 groepen mensen: 


Dat mag best revolutionair genoemd worden 
als we de prestaties afzetten tegen de 
overige MS-DOS computers, om maar niet te 
-spreken van MSX-2 computers. 

Importeur Spectravideo: 

Electronics Nederland 
Tijnmuiden 15-19 
1046 AK Amsterdam 

De introductie voor het publiek vindt 
plaats op de Firato, die vanaf 29 augustus 

dit jaar wordt gehouden in het Amsterdamse 
RAI complex. Het nummer van de 
Spectravideo stand op de Firato is 241, 
welke zich bevindt in de Europahal. 


a. Didactici, vnl. mensen van een PABO of 
een schoolbegeleidingsdienst, die be¬ 
schikken over een uitgebreide didacti¬ 
sche kennis en legio achtergrondlitera¬ 
tuur. 

b. Leerkrachten, die onder leiding van de 
didactici onderdelen» van de schoolvak¬ 
ken stapsgewijs gaan beschrijven. 

c. Professionele programmeurs. 

Mensen, die tot een of meer van deze 

groepen behoren, het beste met de computer 
in het onderwijs voorhebben en graag onder 
TRON willen meewerken aan de ontwikkeling 
van didactisch verantwoorde software, wor¬ 
den verzocht te schrijven naar onderstaand 
adres. 


HANS KLOPPER. 



HANS VERHOLEN, 
LEIDSEKADE 93 B, 
1017 PN AMSTERDAM. 
TEL. 020-200384 


SOFTWARE TOP TIEN 


1. KNIGHTMARË 

2. MONOPOLY 

3. MSX TEXT-BASE 

4. F0RMULA 1 

5. EDDY II 

6. SLAGEN V/H RIJ-EXAMEN 

7. HYPERSP0RTS III 

8. MOLECULE MAN 

9. C0MPUTERHITS 

10. GROG'S REVENGE 


K0NAMI 
LEISURE 

COMPUTERMATES 

MASTERTRONICS 

HALL 

WOLTERS 

K0NAMI 

MASTERTRONICS 
BEAUJOLLY 
US GOLD 


BOEKEN TOP VIJF 


1. MSX-BASIC VOOR KINDEREN 

2. PROGRAMMEURSCURSUS MSX-BASIC 

3. MSX VERDER UITGEDIEPT 

4. THE MSX RED B00K 

5. MSX2 UTILITIES, TOEPASSINGSHANDBOEK 


CARTRIDGE 

FL. 

69,— 

CASSETTE 

FL. 

45,— 

CARTRIDGE 

FL. 

195,— 

CASSETTE 

FL. 

14,95 

CARTRIDGE 

FL. 

76,— 

CASSETTE 

FL. 

59,— 

CARTRIDGE 

FL. 

69,— 

CASSETTE 

FL. 

12,- 

CASSETTE 

FL. 

35,— 

CASSETTE 

FL. 

45,- 

STARK 

FL. 

19,50 

ACADEMIC SERVICE 

FL. 

45,- 

STARK 

FL. 

23,90 

AVALON/KUMA 

FL. 

45,- 

STARK 

FL. 

29,75 
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Hol allemaal. 


Omdat dit extra nummer geen echte "Gids" 
is, wil ik een paar adventures bespreken, 
die niet zo in het rijtje van de moeilijke 
Level 9 en aanverwante produkten passen. 
Het gaat hier om "Journey to the Centre of 
the Earth" (naar het boek van Jules Verne) 
en "Knight Tyme”, die beide op cassette 
uitgebracht zijn en slechts fl. 15,— per 
stuk kosten. Deze adventures zijn uiter- 
mate geschikt voor de beginners, maar 
gezien de prijs hebben de wat meer gevor¬ 
derden er ook nog wel een paar daagjes 
speelplezier van. 


JOURNEY TO THE CENTRE OF THE EARTH 



Deze cassette is uitgebracht door Liberty 
House in Londen onder het label "Bug 
Byte". Het verhaal is bekend: je gaat als 
onderzoeker naar Ijsland om het middelpunt 
van de aarde te vinden en beleeft onderweg 
allerhande avonturen. 

Op de cassette bevinden zich 4 delen van 
het adventure, die eventueel ook apart te 
laden zijn, mits men het wachtwoord kent, 
dat aan het eind van elk deel wordt opge¬ 
geven . 

Het gebruiksvriendelijke aan dit programma 
is, dat de commando's tijdens het hele 
spel op het beeldscherm te zien zijn en 
men die kan geven door slechts 1 letter in 
te toetsen. Voorbeeld: M voor Move. Wel 
moet je dan na het woord Move opgeven, wat 
er verplaatst moet worden. 

De beginnende avonturier zal ook niet snel 
"verdwalen", want de weg wijst zich van¬ 
zelf: je wordt een bepaalde richting inge¬ 
stuurd . 



Aan de andere kant is het nu ook weer niet 
zo, dat het spel al te simpel is. Zoals 

het een goed adventure betaamt, zijn er 
nog genoeg addertjes onder het gras om het 
spannend te houden. De graphics zijn rede¬ 
lijk uitgevoerd en de beeldopbouw is be¬ 
hoorlijk snel. 

Beeld * * * 

Geluid 

Spel kwaliteit* * * j 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * * 

***** ZEER GOED 

**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 
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KNIGHT TYME 

Een produkt van Mastertronic onder het 
label "M.A.D. GAMES", waarbij de E achter¬ 
stevoren geschreven is, maar dat teken zit 
zelfs niet op een MSX-toetsenbord. "Knight 
Tyme" is het derde adventure in de serie 
met de Magie Knight als hoofdrolspeler en 
hierin wordt gebruik gemaakt van het "Win- 
dimation systeem", dat het eerst voorkwam 
bij de voorloper "Spellbound". 

Dit systeem houdt in, dat alle commando's 
op het beeldscherm tevoorschijn gehaald 
kunnen worden. De Magie Knight is terecht¬ 
gekomen aan boord van een ruimteschip 
ergens in de verre toekomst en moet een 
tijdmachine zien te bemachtigen om weer 
naar zijn eigen tijd terug te keren. Aan 
boord van het ruimteschip bevinden zich 
enkele robots en allerlei objecten, die 
hem daarbij behulpzaam kunnen zijn. Het 
communiceren met de "bemanning", het opra¬ 
pen en bekijken e.d. van de voorwerpen 
enz. enz. gebeurt dus allemaal door middel 
van een soort keuzemenu. Met de cursor- 
toetsen gaat men naar de keuze, die men 
gemaakt heeft en door een druk op de "Re¬ 
turn" knop wordt die aktie dan ondernomen, 
al dan niet met het gewenste resultaat. 

"Knight Tyme" is al aanmerkelijk moeilij- 
ker te spelen dan het hiervoor beschreven 
spel. Het keuzemenu is wel gebruiksvrien¬ 
delijk, maar wat je met de voorwerpen die 
je vindt moet doen of hoe je de aanwijzin¬ 
gen van bijvoorbeeld de boordcomputer moet 
Interpreteren, wordt er niet bijverteld. 
Daar moet je zelf achter zien te komen. 

Ook hier weer redelijke graphics en een 
verrassend snelle beeldopbouw. Persoonlijk 
vind ik "Knight Tyme" het aardigste adven¬ 
ture van de twee, maar voor fl. 30,— kun 
je ze allebei kopen en met zo'n prijs is 
er eigenlijk weinig reden om dat niet te 
doen. 



Beeld * * * * * 
Geluid * * * * * 
Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * * 

Prijs * * * * * 

***** ZEER GOED 

• *** GOED 

• *• REDELIJK 

• * MATIG 

• SLECHT 


ZAKIL W00D 

Ter afsluiting nog even iets over "Zakil 
Wood", dat ik in MSX Gids nr.6 heb be¬ 
schreven. Dankzij een tipgever ben ik al 
tets verder gekomen. Mijn dank daarvoor. 

Ik schreef, dat er een hintsheet aange¬ 
vraagd kan worden voor dit spel bij de 
producent ervan, maar uit enkele telefoni¬ 
sche reakties blijkt, dat niet op elk 
doosje het adres van Mr.Micro Ltd. voor¬ 
komt. Vol la: 

Mr.Micro Ltd. 

69, Partington hane, 

Swinton, 

MANCHESTER, M27 3AL, 

England. 


Speel ze en tot de volgende Gids. 
JOCELYN. 
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SLAGEN VOOR HET RIJEXAMEN 

Deze cursus bestaat uit twee onderdelen 
van ieder vijf programma's, verdeeld over 
twee cassettes. 'Gedrag op kruisingen' 
behandelt in vijf programma's het rijge¬ 
drag en bevat tests voor reactiesnelheid 
en waarnemingsvermogen. 'Theorie-examen' 
bereidt de leerling met 120 verschillende 
verkeerssituaties voor op het theoretisch 
examen van het CBR. Op dezelfde manier als 
op het officiële examen worden 'dia's' 
vertoond en vragen gesteld die met JA of 
NEE beantwoord moeten worden. 

De cursus wordt geleverd met een duide¬ 
lijke Nederlandse handleiding die als enig 
nadeel heeft dat de letter I wordt 
gebruikt op plaatsen waar een 1 hoort te 
staan. De eerste keren zat ik dus regel¬ 
matig op de I te drukken als de 1 werd 
gevraagd. Deze fout kunt u dus niet meer 
maken. 

Niets dan lof over deze cursus. Hier is op 
originele wijze de computer ingeschakeld 
bij leerstof die tot nu toe alleen in 
boekjes te vinden was. De computer is 
uitstekend geschikt voor dit soort werk en 
het is me een raadsel waarom dit soort 
dingen niet vaker voor een computer 
gemaakt wordt. 



Bij foute antwoorden wordt uitgelegd 
waarom deze fout waren en de fout 
beantwoorde vragen worden later herhaald. 
Met de computer zijn leuke dingen te doen 
die in een boekje niet kunnen. Zo zit er 
bijvoorbeeld ook een reactietest in het 
cursuspakket en bij verschillende onder¬ 
delen moet je (met cursor of joystick) 
zelf een auto besturen. Ook de 

waarnemingstest is een goed voorbeeld van 
het gebruik van een computer voor dit 
soort zaken; in een boekje is dit ook niet 
uitvoerbaar. Wel heb ik twijfels over het 
'ogentest' onderdeel en de 'kleurentest'. 
Ik had hier (op een Hi-Res RGB monitor) 
geen moeite mee, maar ik kan me 
voorstellen dat op een matige TV dit 
onderdeel enigszins de 'mist' ingaat. Ook 
ben ik een paar kleine schoonheids¬ 
foutjes tegengekomen. Bij verschillende 
onderdelen blijft, bij het laden van het 
volgende onderdeel een sirene zeer 
hinderlijk doorloeien. Tevens ben ik hier 

en daar een Syntax-error tegengekomen, 
maar dat kan ook een exemplarische fout 
zijn. 

Wie voor zijn (haar) rijexamen zit: DOEN! 
Dit pakket is een uitstekend hulpmiddel om 
het theoretisch gedeelte onder de knie te 
krijgen. De prijs is 59,00 en dat is 
niet duur. Het softwarepakket komt van 
uitgeverij Wolters Noordhoff B.V. en staat 
o) 1 cassettes. Er is ook een diskette 
uitvoering leverbaar (prijs niet bekend). 

Heb je al (jaren) een -rijbewijs? Dan zou 
je alle vragen en oefeningen foutloos 
moeten kunnen doorlopen! 

Beeld ***** 

Geluid* * * 

Spelkwaliteit 
Foutafhandeling* * * 

Gebruiksgemak* * * * * 

Documentatie* * * * * 

Prijs* * * * 

***** ZEER GOED 
**** GOED 
**» REDELIJK 
** MATIG 

* SLECHT 


| tl iMUkr? 


vaarlui rïj*e\ain< n 

■* i - ■ l ij k . fa i* , 

* 1 t§ ~ 

in io ii rilar 



32 










































Grem 1 in presents 



<C> Colin Poo1ey 1905 


Hit SPACE or FIRE to start. 


VALKYR 


Valkyr is een schietspel dat dusdanig 
afwijkt van andere schietspellen dat het 
de moeite waard is dit spel eens nader te 
bekijken. 

"Elke ronde bestaat uit 3 levels. In level 
1 moet je verschillende golven vi jandeljke 
'Droners' vernietigen. Tevens moet je het 
Xeryllium, dat uit de wrakstukken valt, 
opvangen en verzamelen tot je genoeg hebt 
voor een 'pulse bomb", waarmee je defi— 
nitief naar een volgend level kan. Je 
aantal schoten is echter wel beperkt dus 
je moet de bom klaar hebben voordat je 
munitie op is. 

In level 2 kom je in een bonus ronde 
waarin je zoveel raogelijk vijanden moet 
afschieten. Het aantal treffers bepaalt de 
tijd die je beschikbaar hebt in level 3. 
Dit derde level is een behendigheidsronde 
waarin je het ruimteschip veilig moet 
laten landen. Door deze verschillende 
levels per ronde zit er behoorlijk wat 
afwisseling in het spel. 

Na de derde ronde begint alles opnieuw, 

maar uiteraard wel met andere tegen¬ 
standers en andere velden. Het spel is erg 
moeilijk en ik heb dan ook geen flauw idee 
hoeveel verschillende rondes er zijn. 
Grafisch ziet alles er redelijk uit; de 
geluiden zijn ook redelijk maar -en daar 
gaat het om— het spel is topklasse. Valkyr 
staat op cassette en komt van Gremlin 
Graphics. De prijs is 39,00 en bij het 
spel zit een goede handleiding in het 
Engels, Frans en Duits. (Draait ook op 
Philips MSX-2). 
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Beeld * * * 
Geluid * * * 

Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * * 

Prijs * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



ATACK OF THE KILLER T0MAT0ES 

De titel van dit spel trok meteen al de 
aandacht en het verhaal op de omslag nog 
meer: Een verhandeling over de slechte 
derderangs films (low-budget movies). Nu 
vind ik dit soort films vaak de beste 
lachfilms die er zijn en -mede door de 
vreemde titel- hoopte ik dat dit dan ook 
een 'giller" zou zijn. 

Een tegenvaller dus als blijkt dat het 
weer zo'n drie-dimensionaal spelletje is 
waar je de laatste tijd mee dood wordt 
gegooid. Sinds Alien8 en Knightlore is er 
weinig veranderd. Het enige voordeel van 
dit spel is de wat soepeler besturing van 
de hoofdfiguur en de hogere snelheid 
waarmee door de velden kan worden bewogen. 
Verder exact gelijk aan de andere 
-soortgelijke- spellen. Deze versie is van 
Global software en wordt geleverd op 
cassette voor een prijs van 39,00. Op 
zich best een aardig spel en er zullen 
zeker wel liefhebbers van rondlopen, maar 
ik ben hier op uitgekeken. (Draait ook op 
Philips MSX-2). 
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D66ld * * * * 

Geluid * * * * 
Spelkwaliteit * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * 

***** ZEER GOED 
*•*• GOED 
*** REDELIJK 
*♦ MATIG 

* SLECHT 



MOLECULE MAN 

Meteen dan nog maar een spel uit de serie 
'driedimensionale doodgooiers'. Je bent de 
Molecule Man in een enorm doolhof met 
stralingsgevaar en tegenstanders die 
kunnen verdwijnen via een 'teleporter'. Je 
moet 16 circuits zien te vinden en deze 
activeren. Verder zijn er munten waarmee 
je kunt kiezen uit levenspillen of bommen; 
uiteraard heb je beiden nodig. Met de 
bommen kun je gedeelten van het 
-driedimensionale" doolhof bereiken die 
anders onzichtbaar blijven. 

Molecule Man is aanmerkelijk moeilijker 
dan Killer Tomatoes. Ook ziet het er 
grafisch wat beter uit- Het belangrijkste 
verschil zit hem in de prijs! Molecule Man 
(uitgebracht door Mastertronics, op 
cassette) kost slechts 12,00 en dat 
maakt het heel aantrekkelijk om deze 
cassette aan te schaffen. Molecule Man is 
echt moeilijk, want ik heb nog niets 
bereikt of gevonden in dit doolhof. Nu heb 
ik uiteraard geen tijd om dagen door de 
verschillende doolhoven te dwalen maar bij 
de meeste spellen worden -binnen enkele 
uren- meestal toch wel redelijke 
resultaten geboekt. Op de handleiding hoef 
je niet te rekenen; je moet alles zelf 
uitzoeken. De cursorbesturing is iets 

afwijkend, maar went snel. Heb je belang¬ 
stelling voor dit soort spellen dan is 
deze versie geen slechte keus. Zeker de 
prijs mag hier doorslaggevend zijn! 



Beeld* * * * 
Geluid* * * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



TURMOIL 


Turmoil is een behendigheidsspel van het 
type 'klim en klauter'. Ook van dit soort 
spellen zijn er al vele verschenen maar 
-mits goed gemaakt- vervelen deze spellen 
niet gauw en zijn altijd weer een 
uitdaging. Turmoil is een van de betere 
behendigheidsspellen maar ook een van de 
raoeilijkste. Je zit gevangen bij een 
olieraagnaat en kan ontsnappen met een 
auto. Voor deze auto moet je olie 
verzamelen in een kan en deze naar de auto 
brengen. Tevens kan je gereedschap 
verzamelen voor bonuspunten. Je wordt 
echter wel bewaakt en je kan deze bewakers 
dwarszitten door olie op de grond te 
gooien. Pas echter op, je kan hier zelf 
ook op uitglijden. Het pikken van 
gereedschap maakt de bewakers extra kwaad. 
Heb je de auto, dan kan je naar het 
volgende veld. Er zijn ook nog twee 
oefenrondes, die gekozen kunnen worden bij 
het begin van het spel, die allebei 
verschillend zijn en uit de 26 speelvelden 
geselecteerd zijn. Het spel is echt heel 
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erg moeilijk en ziet er grafisch 
fatastisch uit. Pas op, ook dit spel is 
weer verslavend. Verder valt hier de prijs 
weer op; deze cassette van Bug-Byte kost 
slechts 15,00 en voor deze prijs kan je 
zo'n uitstekend spel eigenlijk niet laten 
liggen. (Draait ook op Philips MSX-2). 


Beeld * * * * * 
Geluid * * * 

Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs * * * * * 

***** ZEER GOED 

***» GOED 
*•• REDELIJK 
** MATIG 

* SLECHT 


TURBO CARD 


Geen spel, maar een mini cursor om op de 
MSX aan te sluiten via een joystick poort. 
Het kastje Is 12 x 6 cm. klein en slechts 
1.5 cm. plat. Handig om b.v. in de 
draagtas van de X'Press te stoppen of te 
gebruiken om wat verder van de monitor te 
kunnen zitten. Deze cursor is uiteraard 
geen echte vervanger van een joystick maar 
kan best handig zijn. De werking is -voor 
zover dat met zo'n kleine cursor kan- best 
goed te noemen. Iedereen moet zelf maar 
bezien of een dergelijke aanschaf zinvol 
is. De prijs van deze mini turbo is 
29,50 



Beeldscherm! WIDTH 36 


10 COLOR1,15,15: SCREEN0! WIDTH37!CLSi 
KEY OFF 

20 PRINT!PRINT 

30 PRINTTAB(7)"####*#**#**#######*## 

£ £ II 

40 PRINTTAB(7)" * ANALOGE KLOK 
50 PRINTTAB(7)”*****#****»********** 

$ I 11 

60 PRINTTAB(7)"* door 

| tl 

70 PRINTTAB(7)"# Theo van Vroenhoven 
% 11 

80 PRINTTAB (7) 11 * Eindhoven 

* " 

90 PRINTTAB(7)"*^******************* 
**" 

100 PRINT!PRINTs PRINT:PRINT"Dit prog 
ramma tekent een echt werken-de 12-u 
urs analoge klok op het scherm" 

110 PRINT"6eef nu de begintijd in, g 
escheiden door een komma. Zorg er v 
oor dat U<12en M<60. <bv. 10,46)" 

120 LOCATE 0,22:INPUT U,MïIF U>11 OR 
M>59 THEN LÖCATE 0,22:PRINT" 

"!GOTO 120 

130 ? -WIJZERPLAAT TEKENEN- 

140 DEFINTA 

150 OPEN"GRP:"FOR OUTPUT AS#1 
160 SCREEN2 

170 CIRCLE <127,95),3,1 
180 CIRCLE(127,95),82,1,,,1.4 
190 CIRCLE(127, 95) ,86,1,, ,1.4 
200 PAINT(127,12),ï 

210 FOR A*/.=0 TO 59 STEP 5 
220 LINE<127+53*C0S(A*2*ATN(i>/15),9 
5-72*SIN <A*2*ATN<1)/15))-(127+59#C0S 
<A*2*ATN(1)/15),95-B0*SIN(A*2*ATN<1) 
/15) ) 

230 NEXT 

240 PRESET(117,60):PRINT#1,"MSX" 

250 PRESET(122,1):PRINT#1,"12" 

260 PRESET(159,12) SPRINT#!, "1" 

270 PRESET(183,46):PRINT#1,"2" 

280 PRESET<191,92)sPRINT#l, "3" 

290 PRESET(183,136):PRINT#1,"4" 

300 PRESET<159,172):PRINT#1,"5" 

310 PRESET(125,184)iPRINT#l,"6" 

320 PRESET(90,172):PRINT#1,"7" 

330 PRESET(66i136):PRINT#1,"8" 

340 PRESET(58,92):PRINT#1,"9" 

350 PRESET(58,46):PRINT#1,"10" 

360 PRESET(81,12):PRINT#1,"11” 

370 LINE(54,144)-(54,47) 

380 LINE-(86,0) 

390 LINE-(168,0) 

400 LINE-< 200,47) 

410 LINE-(200,144) 

420 LINE-(168,191) 

430 LINE-(86,191) 

440 LINE-(54,144) 

450 LINE(0,55)-(54,55) 

460 LINE(200,55)-(255,55) 

470 LINE(200,136)-(255, 136) 

480 LINE(0,136)-(54,136) 

490 LINE(0;75)-(54,75) 

500 LINE(200,75)-(255,75) 

510 LINE < 200,116)-(255,116) 

520 LINE(0,116)—(54,116) 

530 PAINT<i,115),1:PAINT(255,115),1 

540 ’-REKENEENHEID KLOK- 

550 TI ME=0 

560 H=5*U+INT(M/12)!GOTO 600 
570 S=INT(TIME/50+.5) 

580 IF S>=60 THEN S=S-60!M=M+1:TIME= 
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50*S:GOSUB 670 

590 IF M=60 THEN M=0 

600 IFINT(M/12)=M/12 AND S< 1.5 THEN 

H—H+l:GOSUB 710 

610 IF H=60 THEN H=0:BEEP 

620 MH=60-M 

630 LINE(127,95)-<127+50*COS <(MM#2#A 
TN(1>/15)+2*ATN<1)),95-6B*SIN(<MM*2* 
ATN(1)/15)+2*ATN(1))) 

640 HH=60—H 

650 LINE(127,95) — <127+33KC0S((HH*2*A 
TN(1)/15)+2*ATN <1)),95-45*SIN< (HH*2* 
ATN <1>/15)+2*ATN(1))) 

660 GOTO 570 
670 ? 

680 LINE(127,95)—(127+50*COS((MM*2*A 

TN(1)/15)+2#ATN <1)),95-68*SIN( <MM*2* 

ATN <1)/15>+2*ATN(1) ) > , 15 

690 PRESET(117,60)5 PRINT#1,"MSX ":C1R 

CLE <127,95),3,1 

700 RETÜRN 

710 ? 

720 LINE(127,95)-(127+33#COS((HH*2*A 

TN(1)/15)+2*ATN(1)),95-45*SlN((HH#2* 

ATN(1)/15)+2*ATN(1)) > , 15 

730 PRESET(117,60):PRÏNT#1,"MSX": CIR 

CLE(127,95),3,ï 

740 RETÜRN 
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10 * EENVOUDIG PROGRAMMA VOOR HET 
20 * MAKEN VAN FACTUREN. OP REGEL 
30 * 2270 T/M 2350 MOETEN NOG WEL 
40 'DE EIGEN GEGEVENS INGEVULD 
50 ’WORDEN! 

60 ’ 

70 CLEAR 8000 

80 DIM A*(100),B*(100>,A(100),E*(100 
),C*(100),C(100),Z$<100),H(100),X <10 
0 ) 

90 CLS:KEY OFFsCOLDR 1,15 

100 PRINTsPRINT 

110 PRINT",-, 


120 PRINT" 
130 PRINT" 
140 PRINT" 
150 PRINT" 
160 PRINT" 
170 PRINT" 


FAKTURERING 

DOOR R.WUTS 
SWALMEN 


180 LOCATE 0,20!PRINT"DRUK OP F1 VOO 
R START" 

190 ON KEY GOSUB 200!KEY(1)DN:GOTO 1 
90 

200 CLS 


2 1 0 LOC ATE0 , 4:PRI NTTAB < 1 5 >" MENU " 

220 PRINT!PRINT 

230 PRINTTAB(5)"1 -NIEUW BESTAND MAK 
EN. " 

240 PRINTTAB(5)"2 -NIEUW BESTAND OPS 
LAAN." 

250 PRINTTAB(5)"3 -OUD BESTAND LADEN 

I» 


260 

OP 

270 

OP 

2B0 


tl 


PRINTTAB(5)"4 
SCHERM." 
PRINTTAB(5)"5 
PRINTER ."5 
PRINTTAB(5 )"6 


-BESTAND 

-BESTAND 

-BESTAND 


AFDRUKKEN 

AFDRUKKEN 

WIJZIGGEN 


290 PRINTTAB(5)"7 -BESTAND UITBREIDE 
N. " 

300 PRINTTAB(5 )"8 -EINDE PROGRAMMA." 
310 PRINT!PRINT 
320 PRINT"UW KEUZE 


330 K*=INKEY$:B=VAL(K*> 

340 IF B<1 OR B >8 THEN 330 

350 ON B GOTO 360,570,750,990,2150,1 

360,2650,2810 

360 CLSsPRINTTAB(10)"NIEUW BESTAND M 


II 


AKEN." 

370 PRINT:PRINT 

PRINT"BEDRIJF 
PR I NT 

INPUT"NAAM 
INPUT"ADRES 
INPUT"WOONPLAATS 
INPUT"DATUM 
INPUT"REK NR 
PRINT 
AB=0 

PRINT"GEGEVEN";AB 


5 A* 

;B* 

;C* 


A 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4B0 
490 
500 
VEEL 
) 

510 PRINT"Nog een gegeven invoeren ( 
J/N) " 

520 F* = INKEY*SIF F* <>"J" AND F*< > 
"j" AND F$<> H N" AND F*<>"n" THEN 520 
530 IF F*="N" OR F*="n" THEN 200 


PRINT 

INPUT"GEGEVEN"; Z*(AB):INPUT "HOE 

H(AB):INPUT"PRIJS";X(AB 


I, 


540 AB=AB+1 
550 CLS 
560 GOTO 480 

570 CLS!PRINT:PRINT:PRINT 

580 INPUT"WAT IS DE FILENAAM " 5 NA* 

590 NB*=NA* 

600 OPEN "A:"+NB* FOR OUTPUT AS#1 - 
610 PRINT# 1,NB* 

620 PRINT# 1,AS 
630 PRINT# 1,B* 

640 PRINT# 1,C* 

650 PRINT# 1,E* 

660 PRINT# 1 ,A 
670 PRINT# 1,AB 
680 FOR Z = 1 TO AB 
690 PRINT# 1,Z*(Z> 

700 PRINT# 1,H(Z) 

710 PRINT#1,X(Z) 

720 NEXT Z 
730 CLOSE #1 
740 GOTO 200 
750 CLS 

760 INPUT"WAT IS DE FILENAAM ";NA* 
770 NB*=NA* 

7B0 TE=0 

790 OPEN "Aï"+NB* FOR INPUT AS#1 
800 INPUT# l,CO* 

810 IF CO*ONB* THEN 960 

820 IF EOF(1)=—1 THEN 960 

830 PRINT!PRINT"FOUND ";CO* 

840 INPUT# 1,A* 

850 INPUT# 1,B* 
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860 INPUT# 1,C* 

870 INPUT# 1,E$ 

880 INPUT# 1,A 
890 INPUT# 1,AB 
900 FOR Z=1 TO AB 
910 INPUT# 1,Z*(Z) 

920 INPUT# 1,H(Z> 

930 INPUT#1,X(Z) 

940 NEXT Z 
950 GOTO 820 
960 CLOSE #1 

970 IF CD$ONB* THEN 760 
980 GOTO 200 

990 CLS: PR INTT AB (10) *' BEST AND AFDRUKK 
EN. " 

1000 TQ=5:TT= 0 :Al =1 
1010 IF AB >0 THEN 1050 
1020 PRINTsPRINT 

1030 PRINT M NOG GEEN BESTAND AANWEZIG 

I» 

1040 FOR T =1 TO 1500sNEXT TsGOTO 200 
1050 CLS:PRINTTAB< 10 )"BESTAND AFDRUK 
KEN. " 

1060 PRINTSPRINT 
1070 PRINTA* 

1080 PRINTS* 

1090 PRINTC* 

1100 PRINT 

1110 PR I NT M F AKTUUR NR. "jA;" " ; E* 

1120 PRINTsPRINT 

1130 IF Al>1 THEN PRINT"TRANSPORT";T 
T 

1140 PRINT 

1150 FOR Z=A1 TO AB 

1160 PRINT H<Z),Z*(Z),X<Z) 

1170 TT=TT+X(Z) 

11B0 PRINT 

1190 IF Z=TQ AND AB>TQ THEN 1220 
1200 IF Z=AB AND Z=<TQ THEN 1270 
1210 GOTO 1260 

1220 PRINT"TRANSPORTEREN "5 TT 
1230 TQ-TQ+5:Al~Al+5 

1240 U*=INKEY*:IF U*<>"T" AND U*<>"t 

" THEN 1240 

1250 GOTO 1050 

1260 NEXT Z 

1270 PRINT 

1280 PRINT"TOTAAL ";TT 

1290 PRINT 

1300 BT=TT-INT<(TT/1.19)*100+.5)/100 
1310 PRINT"INCL " ; BT 

1320 PRINTsPRINTsPRINT 
1330 PRINT"DRUK 3 VOOR MENU" 

1340 G*=INKEY*:IF G$<>"3" THEN 1340 
1350 GOTO 200 

1360 CLSsPRINTTAB(10)"BESTAND WIJZIG 
GEN. " 

1370 IF AB>0 THEN 1410 
1380 PRINTsPRINT 

1390 PRINT"NOG GEEN BESTAND AANWEZIG 

II 

1400 FOR T =1 TO 1500sNEXT TsGOTO 200 
1410 CLS:PRINTTAB(10)"BESTAND WIJZIG 
GEN. " 

1420 PRINTsPRINT 

1430 PRINT"WAT WILT U WIJZIGGEN ?: 
1440 PRINT 

1450 PRINT"1 -FAKTUURNUMMER" 

1460 PRINT"2 -DATUM" 

1470 PRINT"3 -NAAM" 

1480 PRINT"4 -ADRES" 

1490 PRINT"5 -WOONPLAATS" 

1500 PRINT "6 -GEGEVENS " 

1510 PRINT"MAAK UW KEUS :" 

1520 Z*—INKEY*: Z—VAL(Z*) 

1530 IF Z<1 OR Z >6 THEN GOTO 1520 
1540 CLSsPRINTTAB(10)"BESTAND WIJZIG 
GEN"SPRINT:PRINT 


1550 ON Z GOTO 1560,1640,1720,1800,1 
880,1950 

1560 PRINT"OUD FACTUURNUMMER s":A 
1570 PRINT 

1580 PRINT"WILT U DIT WIJZIGGEN (J/N 
) 

1590 H* « INKEY*:IF H* <>"J" AND H*< 
>"j" AND H*<>"N" AND H*<>"n" THEN 15 
90 

1600 IF H*="N" OR H$-"n" THEN 200 
1610 PRINT 

1620 INPUT"GEEF NIEUW FACTUURNUMMER 
IN"; A 

1630 GOTO 200 

1640 PRINT"OUDE DATUM s" 5 E* 

1650 PRINT 

1660 PRINT"WILT U DIT WIJZIGGEN (J/N 

) 

1670 H* = INKEY*:IF H* <>"J" AND H*< 
>"j" AND H*<>"N" AND H*<> ,, n" THEN 16 
70 

1680 IF H*="N" OR H*="n" THEN 1710 
1690 PRINT 

1700 INPUT"GEEF NIEUWE DATUM IN";E* 
1710 GOTO 200 

1720 PRINT"OUDE NAAM s"!A* 

1730 PRINT 

1740 PRINT"WILT U DIT WIJZIGGEN (J/N 
) 

1750 H* = INK.EY*:IF H* <>"J" AND H*< 

>"j" AND H$<>"N" AND H*<>"n" THEN 17 
50 

1760 IF H*="N" OR H*="n" THEN 1790 
1770 PRINT 

1780 INPUT"GEEF NIEUWE NAAM";A$ 

1790 GDTD 200 

1800 PRINT"OUD ADRES" 5 B* 

1810 PRINT 

1820 PRINT"WILT U DIT WIJZIGGEN (J/N 

) 

1830 H* = INKEY*sIF H* <>"J" AND H*< 
>"j" AND HSK>"N" AND H*<>"n" THEN 18 
30 

1840 IF H*="N" OR H*="n" THEN 1870 
1850 PRINT 

1860 INPUT"GEEF NIEUW ADRES";BS 
1870 GOTO 200 

1880 PRINT"OUDE WOONPLAATS"; C* 

1890 PRINT 

1900 PRINT"WILT U DIT WIJZIGGEN (J/N 
) 

1910 H* = INKEY*:IF H* <>"J" AND H$< 
>"j" AND H*<>"N" AND H*<>"n" THEN 19 
10 

1920 IF H*="N" OR H*="n" THEN 1940 
1930 INPUT"GEEF NIEUWE WOONPLAATS 
C* 

1940 GOTO 200 

1950 CLSsPRINTTAB(5)"BESTAND WIJZIGG 
EN."SPRINT 

1960 INPUT"Welk nummer wilt u wijzig 
en"sPI 

1970 IF PI<=AB THEN 2010 
1980 PRINT"Geen gegevens meer in het 
qeheuqen." 

1990 FOR M=1 TO 1500:NEXT M 
2000 GOTO 200 
2010 CLS 

2020 PRINT" OUD GEGEVEN ";Z*(PI) 

2030 PRINT"OUDE HOEVEELHEID ":H(PI) 
2040 PRINT"OUDE PRIJS ";X(PD 

2050 PRINTsPRINT 
2060 INPUT"GEGEVEN "$Z*<PI) 

2070 INPUT"HDEVEELHEID ";H(PI) 

2080 INPUT"PRI JS "5 X(PI) 

2090 CLS 

2100 PRINT"Wilt u nog meer gegevens 
wijzigen?" 





2110 PRINT 

2120 HS - INKEYS:IF HS <> H J M AND HS< 
>"j" AND HSO"N" AND H$<>"n" THEN 21 
20 

2130 IF H*«"N" OR HS * 5 "n" THEN 200 
2140 GOTO 1950 

2150 CLSs PRINTTAB(10)"BESTAND AFDRUK 
KEN. " 

2160 TQ=25sTT*0sAl=l 

2170 IF AB>0 THEN 2210 

2180 PRINT:PRINT:PRINT:PRINT 

2190 PRINT"NOG GEEN BESTAND AANWEZIG 


2200 FOR T—1 TO 1500:NEXT TsGOTO 200 
2210 CLS:PRINTTAB(10)"BESTAND AFDRUK 
KEN." 

2220 PRINT:PRINT 

2230 PRINT"BEDRIJF ";AS 

2240 FOR N=1 TO 2:LPRINT:NEXT N 

2250 FOR N=1 TO 2:LPRINT:NEXT N 

2260 LPRINTCHRS(14) 

2270 LPRINTTAB<16)"?????????????" 
2280 LPRINTTAB<13)"POSTBUS ?????" 
2290 LPRINTTAB(13)"0000 00 AMSTERDAM 


2300 LPRINTTAB(13)"TEL. 000-00.00.00 

II 

2310 LPRINTTABU3) "GIRO 0000000" 

2320 LPRINTCHRS(15) 

2330 LPRINTTAB(52); AS 
2340 LPRINTTAB(52); BS 

2350 LPRINTTAB(8)"K.v.K Amsterdam nr 
. 00000";TAB(52);CS 
2360 LPRINT:LPRINT 

2370 LPRINTTAB(8)"Faktuur nr.";A;TAB 
(25)"Amsterdam, ";ES 
2380 LPRINT:LPRINT 

2390 IF Al>1 THEN LPRINTTAB(15)"TRAN 
SPORT";TAB(69) USING "f#####.##";TT: 
LPRINT 

2400 FOR Z=A1 TO AB 

2410 IF H(Z)>0 THEN LPRINTTAB(10)USI 
NG"###";H(Z); 

2420 LPRINTTAB(15)ZS(Z);TAB(69)USING 
"ƒ#####„##».X<Z) 

2430 TT=TT+X < Z) 

2440 IF Z=TQ AND AB>TQ THEN 2470 

2450 IF Z=AB AND Z=<TQ THEN 2550 

2460 GOTO 2530 

2470 LPRINTTAB(69)"- 

>1 


2480 LPRINT: LPRINTTAB(15)"TRANSPORT 
EREN";TAB(69) USING "f#####,##";TT 
2490 TQ=TQ+25:A1=A1+25 
2500 PRINT:PRINT"DRUK P T* VOOR TRANS 
PORTEREN !" 

2510 US=INKEYS:IF USO"T" THEN 2510 
2520 GOTO 2210 
2530 NEXT Z 
2540 LPRINT 

2550 LPRINTTAB(69)"- 

H 


2560 LPRINT:LPRINTTAB(15)"TOTAAL", TA 
B(69) USING "f#####.##";TT 

2570 LPRINTTAB (69) -- 1 -- 

2580 BT=TT-INT((TT/1.19)*100+.5)/100 
2590 LPRINT 

2600 LPRINTTAB(15) "Inclusief 197. B.T 
.W";" f ";BT 
2610 PRINT 

2620 PRINT"DRUK 3 VOOR MENU" 

2630 IS-INKEYS:IF IS<>"3" THEN 2630 
2640 GOTO 200 

2650 CLS:PRINTTAB(10)"BESTAND UITBRE 
IDEN." 

2660 IF AB>0 THEN 2720 
2670 IF AB=0 THEN 2680 
2680 PRINT:PRINT 


2690 PRINT"NOG GEEN BESTAND AANWEZIG 

2700 FOR T=i TO 1500:NEXT T 
2710 GOTO 200 
2720 AB=AB+1 

2730 CLS:PRINT"GEGEVEN";AB 
2740 PRINT 

2750 INPUT"GEGEVEN";ZS(AB)8INPUT"HOE 
VEEL STUKS";H(AB):INPUT"PRIJS";X(AB) 
2760 PRINT:PRINT"Nog een gegeven inv 
oeren (J/N)" 

2770 FS = INKEYS:IF FS <>"J" AND FS< 
>"j" AND FS< >"N" AND FSO"n" THEN 27 
70 

2780 IF FS="N" OR FS="n" THEN 200 

2790 AB=AB+1 

2800 GOTO 2730 

2810 CLS:PRINT:PRINT 

2820 PRINT"EINDE PROGRAMMA":END 
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2010 - 159 
2020 - 161 
2030 - 209 
2040 - 7 
2050 - 92 
2060 - 13 
2070 - 120 
2000 - 174 
2090 - 159 
2100 - 113 
2110 - 145 
2120 - 78 
2130 - 204 
2140 - 92 
2150 - 1B1 
2160 - 75 
2170 - 255 
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2380 - 
2390 - 
2400 - 
2410 - 
2420 - 
2430 - 
2440 - 
2450 - 
2460 - 
2470 - 
2480 - 
2490 - 
2500 - 
2510 - 
2520 - 
2530 - 
2540 - 
2550 - 
2560 - 


ALLEEN VOOR CASSETTE 
Beeldscherm! WIDTH 36 


255 

1C9 

162 

161 

132 

133 

134 
116 
227 
116 
126 
249 
107 
163 

51 

1B8 

178 

162 

81 

145 

120 

36 

39 

97 

253 

157 

81 

48 



2570 * 20 
2580 - 75 
2590 - 157 
2600 - 236 
2610 - 145 
2620 * 25 
2630 - 135 
2640 - 127 
2650 - 5 

2660 - 255 
2670 - 216 
2680 - 92 
2690 - 143 
2700 - 62 
2710 - 127 
2720 - 248 
2730 - 109 
2740 - 145 
2750 - 101 
2760 - 219 
2770 - 203 
2760 - 200 
2790 - 248 
2800 - 107 
2810 - 53 
2820 - 187 
37812 


10 CLS:KEY OFFsCOLOR 1,15 
20 FOR N=1 TO Ss PRINT;NEXT N 
30 PRINT" I- 


PRINT" 
50 PRINT" 
60 PRINT" 

65 PRINT" 

66 PRINT" 


AANMANINGEN 
Door R.Wuts 
Swalmen 


II 

tl 

lt 

li 

lt 


70 PRINT" 


80 LOCATE 0,20!PRINT"DRUK OP F1 VOOR 

SJfVRJ " 

90 ON KEY GOSUB 100:KEY<1)ON:GOTO 90 
100 CLS 

110 LOCATE 15,5s PRINT"MENU" 

120 PRINT:PRINT 

130 PRINTTAB(5)"1 -MANING MAKEN." 

140 PRINTTAB(5)"2 -MANING AFDRUKKEN 
OP SCHERM." 

150 PRINTTAB(5)"3 -MANING AFDRUKKEN 
OP PRINTER." 

160 PRINTTAB<5)"4 -EINDE PROGRAMMA." 

170 PRINT!PRINT 

1B0 PRINT"UW KEUZE S" 

190 Z*»INKEY*ïB=VAL(Z*> 

200 IF B-4 THEN CLS:PRINT"EINDE PROG 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 


RAMMA"sEND 

210 IF EK 1 OR B>4 THEN 190 
ON B GOTO 230,330,490 
CLS:PRINTTAB(10)"MANING MAKEN." 
PRINTsPRINT 


•» 


lt 


lt 


• • 


A* 


INPUT"NAAM 
INPUT"BEDRAG 
INPUT"DATUM 
INPUT"PRINTDATUM 
PRINTsPRINT 

PRINT"DRUK 3 VOOR MENU" 
D*«INK£Y$!IF D$<>"3" THEN 310 
GOTO 100 

CLS:PRINTTAB(5)"MANING AFDRUKKEN 


OP SCHERM" 

340 PRINTsPRINT 

350 PRINT"Uit onze boeken blijkt dat 


360 PRINT"nog een bedrag ad f "BV 
370 PRINT"d.d "CV open staat." 

380 PRINT 

390 FRÏNT"Gelieve dit bedrag per omg 
aande" 


400 PRINT"op onze rekening bij te sc 
hrijven." 

410 PRINTsPRINT 

420 PRINT"Mocht betaling reeds hebbe 
n plaats-" 

430 PRÏNT"gevonden dan gelieve dit s 
chrijven" 

440 PRINT"als niet verstuurd te besc 
houwen." 

450 PRINTsPRINT 

460 PRINT"DRUK 3 VOOR MENU" 

470 DVÏNKEYSsIF 0*0*3" THEN 470 
480 GOTO 100 

490 CLS:PRINTTAB(5)"MANING AFDRUKKEN 
OP PRINTER." 

495 LPRINT 

500 LPRINT"rabo 1503 02304" \ TAB<20); 

E* 

510 LPRINTTAB(5) A* 

520 LPRINT:LPRINT:LPRINT 

530 LPRINT"Uit onze boeken blijkt da 

^ li i 

540 LPRINT"nog een bedrag ad f "BV 
550 LPRINT"d.d "CV open staat." 

560 LPRINT 

570 LPRINT"Gelieve dit bedrag per om 
gaande" 

5B0 LPRINT"op onze rekening bij te s 
chrijven." 

590 LPRINTSPRINT 

600 LPRINT"Mocht betaling reeds hebb 
en plaats-" 

610 LPRINT"gevonden dan gelieve dit 
schrijven" 

620 LPRINT"als niet verstuurd te bes 
chouwen." 

630 PRINT"DRUK 3 VOOR MENU" 

640 PRINT 

650 D*=INKEY*s IF D*<>"3" THEN 650 
660 GOTO 100 


C0NTRQLËTELUN6 


Regel: 

10 - 

35 

Regel 

410 - 92 

Regels 

20 - 

57 

Regel 

420 * 191 

Regels 

30 - 

0 

Regel 

430 - 204 

Regels 

40 - 

35 

Regel 

440 - 115 

Regels 

50 - 

224 

Regel 

450 - 92 

Regel: 

60 - 

170 

Regel 

460 - 25 

Regel: 

65 - 

26 

Regel 

470 - 228 

Regel: 

66 - 

35 

Rege) 

4B0 - 27 

Reqeli 

70 - 

4 

Regel 

490 * 110 

Regel: 

80 - 

7 

Regel 

495 - 157 

Regel: 

90 - 

9 

Regel 

500 - 141 

Regel: 

100 - 

159 

Regel 

510 - 60 

Regel: 

110 - 

156 

Regel 

520 - 75 

Regel: 

120 - 

92 

Regel: 530 - 124 

Regel: 

130 - 

225 

Regel 

540 - 78 

Regel: 

140 - 

178 

Regel 

550 - 223 

Regel: 

150 - 

21 

Regel 

560 - 157 

Regel: 

160 - 

201 

Regel 

570 - 75 

Regel: 

170 - 

92 

Regel 

580 - 119 

Regel: 

180 - 

127 

Regel 

590 * 104 

Regel : 

190 - 

38 

Regel 

600 - 203 

Regel: 

200 - 

159 

Regel: 610 - 216 

Regel: 

210 - 

81 

Regel 

620 - 127 

Regel: 

220 - 

94 

Regel 

630 - 25 

Repls 

230 - 

63 

Regel 

640 - 145 

Regel: 

240 - 

92 

Regel 

650 - 153 

Regel : 

250 - 

134 

Regel 

660 - 27 

Regelt 

260 - 

207 

Totaal: 7591 

Rege): 

270 - 

198 



Regelt 

200 - 

181 



Regelt 

290 - 

92 



Regel : 

300 - 

25 



Regelt 

310 - 

68 



Regel; 

320 - 

27 



Regel : 

330 - 

190 



Regel : 

340 - 

92 



Regel : 

350 - 

112 



Regel: 

360 - 

66 



Reqelt 

370 - 

211 



Regel: 

SB0 - 

145 



Regel: 

390 - 

63 



Regel: 

400 - 

107 
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DATA-LISTER 


Dit programma leest machine code in, 
geeft begin- eind- en startadres en 
zet de machine code om in DATA- 
regels, compleet met regel nummers. 


ALLEEN VOOR CASSETTE 
Beeldscherm: WIDTH 36 


993 ' 

994 ' 

995 " 

996 21 

997 ' 

998 21 

1000 

* ? > 

1001 

1002 

1003 
245 

1004 
682 

1005 

1006 

* ;* * 

1007 

1008 

1009 
,65 

1010 
,6F 
1011 
,72 
1012 
,61 

1013 
, 73 

1014 

1015 
,65 

1016 
, 64 

1017 
,69 

1018 
,20 

1019 
,61 

1020 
1021 
,74 
1022 
, 65 

1023 
,72 

1024 
,64 

1025 
, 65 

1026 
1027 
,C5 
102B 
, AF 

1029 
, 12 

1030 
,78 

1031 
, 12 

1032 


??? ?? W M J ? 3 J J ^ 

DATA LISTER 

<c) 1986 MSX-Gids Amsterdam 51 

door: 6.P. Versluis ? 

► 

21 controlegetal len mach. data’s 

5» 

DATA 4758,4716,4777,5035,5471,6 
DATA 6541,7246,6225,4568,4492,5 
DATA ** 

???? ï ??????????? !• ? f ? ?????????!! ? 

'mach.data's 

data 44,61,74,61,2D,60,69,73,74 
DATA 72,40,5A,65,74,20,72,65,63 
DATA 72,64,65,72,20,68,60,61,61 
DATA 40,6D,3D,6D,6F,74,6F,72,20 
DATA 61,6E,2F,75,69,74,40,60,3D 

data ++ 

DATA 74,61,72,74,20,60,69,73,74 
DATA 6E,40,45,76,65,6E,20,67,65 
DATA 75,60,64,20,61,75,62,40,44 
DATA 74,20,69,73,20,67,65,65,6E 
DATA 6D,61,63,68,69,6E,65,74,61 
DATA ++ 

DATA 60,40,54,65,20,67,72,6F,6F 
DATA 40,42,65,67,69,6E,61,64,7 2 
DATA 73,40,20,45,69,6E,64,61,64 
DATA 65,73,40,53,74,61,72,74,61 
DATA 72,65,73,40,67,65,72,20,76 
DATA ++ 

DATA 72,73,60,75,69,73,40,E5,D5 
DATA CD,E4,00,38,FB,01,Dl,El,09 
DATA 12,13,ED,53,1A,F0,7B,06,24 
DATA 13,3E,00,8A,12,13,79,12,13 
DATA 12,13,03,3E,84,12,13,3E,20 
DATA ++ 


1033 DATA 13,09,FE,0A,30,03,06,30,09 
,06 

1034 DATA 37,09,DD,7E,00,FE,40,08,CD 
,4D 

1035 DATA 00,DD,23,23,18,F2,3E,28,32 
AE 

1036 DATA F3,CD,60,00,CD,CC,00,21,16 
,01 

1037 DATA CD,06,00,DD,21,37,EE,21,01 
,00 

10^8 DATA ++ 

1039 DATA CD,7B,EE,01,28,00,21,28,00 
, 3E 

1040 DATA 2A,CD,56,00,DD,21,A7,ED,21 
, 5D 

1041 DATA 00,CD,7B,EE,09,DD,21,B3,ED 
,21 

1042 DATA F8,00,CD,7B,EE,DD,21,06,ED 
,21 

1043 DATA 4B,01,CD,7B,EE,DD,21,D 6 ,ED 
,21 

10 44 DATA ++ 

1045 DATA 73,01,CD,7B,EE,CD,9F,00,FE 
, 6 D 

1046 DATA 28,IA,FE,60,20,F5,DD,21,E5 
,ED 

1047 DATA 21,02,01,CD,7B,EE,21,EA,01 
,01 

1048 DATA 0F,00,3E,2A,CD,56,00,09,3E 
, FF 

1049 DATA CD,F3,00,1B,D8,F3,CD,89,EE 
, CD 

1050 DATA ++ 

1051 DATA BA, EE, CD, El, 00, CD, E4,00, 38 
, FB 

1052 DATA FE,D0,02,02,F0,06,0F,21,1B 
F 0 

1053 DATA CD,44,EE,77,23,10,F9,E5,D5 
, 05 

1054 DATA CD,El,00,Cl,Dl,El,06,06,CD 
,44 

1055 DATA EE,77,23,10,F9,ED,6B,20,F0 
, ED 

1056 DATA ++ 

1057 DATA 4B,2A,F0,AF,ED,42,70,FE,1F 
, D2 

1058 DATA 0E,F0,11,00« 80,01,64,00,CD 
, 50 

1059 DATA EE,05,06,0A,CD,44,EE,F5,CB 
,3F 

1060 DATA CB,3F,CB,3F,CB,3F,CD,71,EE 
,12 

1061 DATA 13,F1,E6,0F,CD,71,EE,12,13 
2b 

1062 DATA ++ 

1063 DATA 7C,FE,FF,28,00,05,28,06,3E 
, 20 

1064 DATA 12,13,18,D8,01,IS,CF,01,AF 
, 12 

1065 DATA 13,EE,6B,1A,F0,7B,77,23,7A 
,77 

1065* DATA AF, 12, 13, 12, 13,ED,53,02,F6 
, 3E 

1067 DATA 08,12,13,3E,41,12,13,AF,12 
, 13 

1068 DATA ++ 

1069 DATA ED,53,9A,F0,06,08,12,13,10 
, FC 

1070 DATA 3E,08,12,ED,53,04,F6,ED,53 
, 06 

1071 DATA F6,11,24,F0,21,17,02,06,06 

* IA 

1072 DATA CD,4D,00,23,13,10,FB,13,21 
3A 

1073 DATA 02,DD,21,16,EE,06,03,0E,02 
CD 

1074 DATA ++ 


40 
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5 DATA 7Bj.EE, 23, 23, 1A,F5,CB,3F,CB 


DATA CB,3F,CB,3F,CD,71,EE,CD,4D 
DATA 23,F1,E6,0F,CD,71,EE,CD,4D 
DATA 1B, 0D ,20,E1, D5 ,11,19,00,19 
DATA 13,13,13,13,DD,23,10,CD,AF 


1075 

DATA 

7B 

,3F 

1076 

DATA 

CB 

,00 

1077 

DATA 

23 

,00 

107B 

DATA 

1B 

,D1 

1079 

DATA 

13 

, CD 
1080 

DATA 

++ 

1081 

DATA 

F3 

,03 

1082 

DATA 

CD 

j 21 

1083 

DATA 

72 

1084 

? ? ? ï ? 

ï» ? 

i* ? ^ 

1085 

? assemb 

1086 

1087 

3 

DATA 

++ 


DATA CD,7B,EE,18,EF,DD,21,0D,EE 
DATA 72,03,CD,7B,EE,1B,96,** 


M II 
5 


II li II II 


Del 

talister ","Zet recorder klaar","m=mo 
tor aan/uit","l=start 1isten","Even 
geduld aub","Dit is geen machinetaal 
" , "Te groot","Beginadres","Eindadres 
"i"Startadres","ger versluis" 

1088 DATA " ",++, "bytinjpushhl","pus 
hde","pushbc",++,"lusa 5 calle4","jrc 
lusa","popbc","popde","pophl","ret", 
" ", ++,"re+to;xora"," 1 d(de),a" , " i ncd 
e","ld(opslag),de","lda,e","add24"," 
ld(de), a","incde"," 1 da, 0 ","adca,d”," 
ld(de),a","incde","lda,c" 

1089 DATA' "ld(de),a","incde","lda,b" 
, " 1 d(de),a","incde","incbc ","1 da,84” 
,"ld(de),a","incde ","1 da, 20 "," 1 d(de) 
j a" , "incde" , "ret" , " *’,++, "opt ;cp 0 a 
", "jrnclet","add30","ret",++,"let ; 
add37","ret”," ",++,"tekst;1 da, <ix+0 
)","cp40","rétz","cal14d" 

1090 DATA "incix","inch1 ", "jr tekst", 
» ",++, "sch 9 1 da,26", ”ld'(f3ae) ,a", " 
cal 16c","calIcc","Idhl,116","callc6" 
," 1 dix,gte"«"ldhi, 1 ","cal 1 tekst","ld 
bc,28","ldhi,28","lda,2a","cal 156",» 
Idix,date","idhl,50","cal 1 tekst","re 


t"," ",++ 

1091 DATA "moa/u; 1 di x,zete","1dhl,f8 
", "cal 1 tekst","1dix,mte","Idhl,14b", 
"cal 1 tekst","1dix,1 te","1dhl,173","c 
al 1 tekst",++,"in ;cal 19f","cp6d"," 
jrzmotor","cp6c","jrnzin","ldix,evte 
","Idhl,lc2","cailtekst","Idhl ,ïea", 
"1 dbc, 0f ", " 1 da, 2a" 

1092 DATA "cal156","ret",++,“motor;1 
da,ff " , "cal 1 -f3" , " jrin" , " ",++, "hopro 
;di","cal 1sch","cal 1moa/u","callel", 
++,"iusb ;callé4","jrclusb", "cp0d" ," 
djnzgmt", "ldb,0f ","1dhl,opsi+1",++, " 
lusc ;cal 1bytin","ld(hl),a","inchl", 
"djnzï usc","pushhl" 

1093 DATA "pushde","pushbc","callel" 
,"popbc","popde","pophl","ldb,6",++, 
"lusd ;cal 1bytin","ld(hl),a","inchl" 
,djnzlusd","Idhl,(opsl+12)","1dbc,(o 
pel + 10)","xora","subchl,bc","1 da,h", 
"cp lf","jpnctegr" 

1094 DATA "1dde,8000","1dbc,64",++," 
luse ;cal 1re+to","pushbc","1db,0a",+ 
+ , " 1 us-f ; cal 1 byt i n " , "pushaf ", "srla", 
"srla","srla","srla","cal 1opt","1d (d 
e),a","incde","popaf", "and0f ","cal 1 o 
pt","id(de),a" 


1095 DATA "incde","dechl","lda,h","c 
p-ft", "jrzkl aar ", "decb " , " jrzvore" , "1 d 
a , 2 c", "ld (de) , a", " i ncde", "jrlus-f ",++ 
,"vore ;popbc","jr 1 use",++,"klaar 5 po 
pbc","xóra"," 1 d(de),a","incde","Idhl 
,(opslag )","1 da,e" 

1096 DATA "ld(hl),a","inchl","lda,d" 
," 1 d(hl),a","xora”," 1 d(de),a","incde 
","ld (de) ,a","incde","ld(f 6 c 2 ),de"," 
lda,8","ld(dé),a","incde","lda,41"," 
1 d(de),a","incde","xora"," 1 d(de) , a" , 
"incde 1 ’, ”id(-f09a) ,a", "ldb,B",++, "lus 
g ; 1 d(de),a","incde" 

1097 DATA' "djnzlusg","1 da, 8 ","1d(de) 

, a" , "ld (-f 6c4) , de" , "Id(t 6 c 6 ) ,de", "ldd 
e,opsl+11","Idhl,217","ldb,6",++,"1u 
sh ;1 da, (de)","cal 14d","inchl"," i ncd 
e","djnzlush","incde","Idhl,23a","ld 
ix,bete","ldb,3",++,"lusi ;idc, 2 ","c 
alitekst","inchl",++ 

1098 DATA " 1 lis j % inchl " , "lda, (de) ", " 
pushaf","srla","srla","srla","srla", 
"cal 1 opt","cal 14d","inchl","popaf"," 
and 0 f ","cal 1 opt","call4d","decde","d 
ecc","jrnzlasj","pushde","ldde,19"," 
addhi,de","popde" 

1099 DATA "incde”,"incde","incde","i 
ncde","incix","djnz 1 usi",++,"most ;x 
ora","cal 1f3","ret"," 1 dix,dite"," 1 dh 
1,372","cal 1 tekst","jrmost","1dix,tg 
rte","idhl,372","cailtekst","jrna ",% 
t 

1100 ’ ? ? ? ? ’ ” ’ ’ ” ? ? ? ’ 11 ’ ? ? ? ? ? ? * 


? ? ? 


1101 5 

1102 ? hoofdpro- 

1103 =* 

1104 =* 

1105 WïDTH40!KEYOFF:DIMA(12)sGDSÜBll 
47:G0SUB1139 

1106 *********************>*****•*** 


1107 ’datacheck 

1108 ? 

1109 G0BUB1131:PRINT:PRINTTAB(B);"da 
ta-check.moment aub":PRINTTAB(8);STR 
INGS(21,"=") 

1110 RE AD A$: IF AS< > " * * •* THENB=B+V AL (AS 
):A(I)=VAL(AS):1=1+1:G0T01110 

1111 IFB<>65756!THENPRINT:PRINT" Fou 
t in dataregel 1003-1004":ENDELSEPRI 
NT:PRINT" Data’s in regels 1003 - 10 
04 correctR=1009 

1112 READAS:IFAS< >"++"THENIFAS< >"* *" 
THENOC+VAL ( "&h"+AS> s GÜT01112ELSEG0T 
01114 

1113 IFCOA(J) THENPR INT" Fout in dat 
a-regel ";R;R+4:ENDELSEPRINT" da 
ta’s in regels";R;R+4;"correct"s 
R=R+6:J=J+1: C=0s GÖT01i12 

1114 PRINT:PRINT" Alle data '5 correc 
t":FORI=0TO1000:NE X T:GDBUB1131 

1115 ^ ^ ^ ^ 

? * * 

1116 'poke 

1117 =* 

1118 PRINT:PRINT" Data ? s worden in h 
et geheugen geplaatst" 

1119 RESTORE1008:I=&HEDA7 

1120 READAS:IFAS="++"THEN1120ELSEIFA 
S< >"# #"THENPOKEI,VAL("&h"+AS) : 1 = 1 + 1: 
GOTO1120 

i 121 * 

? 3 ? 

1122 'save 

1123 ' 


I n’AK IQQ 
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1124 GOSUB 1131 SPRINT: PR INTTABd 1) ; "M 
ac h.t aal saven": PR INTTAB(11);STRING* 
(15," = "):PRINT:PRINTTAB(11);"Zet ree 
order kl aar " s PRINTs PRINTTAB (15) ; "m=m 
otor aan/ui t" ï PRINTTAB (15) ; "s=save" 

1125 GOSUB1135:1FA*<>"m"ANDA$<>"s"TH 
EN1125ELSEIFA*»"m"THENMOTOR s GOTO1125 

1126 PRINTsPRINT" Laden met [bload"C 
HR*(34)"cas:data"CHR*(34)",r3"SPRINT 
TAB(11);STRING*(19,"="):PRINT:PRINT" 

Vanuit basic starten mets 11 s PRINT: PR 
INTTAB (11); CHR* (34) "de*usr=&he-f 00"CH 
R$(34)ï PRINTTAB(8);"en "CHR*(34)"a=u 
sr(0)"CHR* <34) 

1127 PRINTSTRING*(40," + "):BSAVE"cass 
data" , &HEDA7, 1-1, &HEF00: KEYON: END 

1128 ’ ' ’ ’ ” ’ ? ’ ’ ’ ’ * ’ ’ ” * ’ ’ ” ’ ’ ’ ” ’ p ' ' 
SP? 


1129 'scherm 

1130 ’ 

1131 CLSs PRINTTAB(14);"Data-1ister"s 
PRINTSTRINS* < 40," + ">;RETURN 

1132 n>*****>>>>*>***************** 
? ? ? 


1133 

1134 

1135 
TURN 

1136 


'input 

* 

A*=INKEY*!IFA*=""THEN1135ELSERE 


1137 ’ass.codes 

1138 ’ 

1139 GOSUB1131:RESTGRE10B7 

1140 X=10 

1141 FORT='0TO100: NEXTs READA*: IFASO" 
* *"THENIFA$<>"++"THENPRINTTAB < X);A*: 
G0T01140ELSEX=4:GOTOl141ELSEFORT-0TO 
1000:NE X T:RESTORE:RETURN 

1 1 42 ’ " * * * *' ” * * * ' ’ ’ " * * ’ ' * ' " " * ’ * 

1 , 1 1 
■" ë* #■ 


1143 ’ 

1144 beschrijving 

1145 =* 


? ? ? 

1147 GC «SUB 1131 SPRINT "Tel kens als ik 
een m.taalroutine in een basieprogra 
mma wilde inpassen,stond ik voor de 

onplezierige taak 5 de opcodes in dat 
aregels in te tikken.PRINT 

1148 PRINT"Omdat de computer goed is 
in onplezierigwerk,heb ik een m.taa 

Iroutine geschrevendie dit voor mij 
doet.":PRINT 

1149 PRINT"Het programma"CHR*(34)"da 
ta-1ister"CHR*(34)"1 eest een machtaa 
1routine(max7680bytes)in van de band 

en zet deze om in een datalist- com 
pleetmet regelnrs ,datatokens ,spati 
es en komma’s -van 10 data's per reg 
el."SPRINT 

1150 PRINT"Andere dan mach.taalprogr 
amma’s worden geweigerd.":PRINT:PRI 
NTSPRINT"GEEF EEN TOETS"sG0SUB1135:G 
OSUB1131:PRINT"Het is slechts 626byt 
es groot en start op EF00" :PRINT 

1151 PRINT"Het werkt als volgt:":PRI 
NT"Eerst krijgt de gebruiker de moge 
lijk- heid de recorder met een prog 
ramma klaarte zetten.PRINT"Na het 
intikken van de"CHR*(34)"1"CHR*(34)" 
start het hoofdprogramma." 


1152 PRINT"Het leest een kop en een 
byte in en het controleert o* het pr 
ogr. mach.taal is. Dan worden 15byte 
s,een kop en nog 6bytes(met oa naam, 
bègin-,eind-en startadres) ingelezen 

II 

* 

1153 PRINT"Eind-en beginadres worden 
van elkaar a*~getrokken en de lengt 

e wordt beoordeeld.Van te lange prog 
ramma’s worden slechts de naam en ad 
ressen gegeven.":PRINT 

1154 PRINT"GEEF EEN TOETS"sGOSUB1135 
:GOSUB1131 

1155 PRINT"Vervolgens wordt naar sub 
routine re+to gesprongen waar het r 
egelnr,de datatokenen een spatie wor 
den geplaatst."SPRINT 

1156 PRINT"Dan wordt in een grote en 
een paar klei—ne lussen de band ing 

elezen en worden debytes bewerkt en 
in het geheugen gezet.":PRINT:PRINT" 
Hl werkt als teller en bevat in het 
be- gin het verschil tussen begin-en 
eindadres."sPRINT 

1157 PRINT"De wijst naar het adres w 
aar de volgendebyte moet komen.":PRI 
NT 

1158 PRINT"Bc houdt de basic-regelnr 
s bij":PRINT:PRINT:PRINT:PRINT"GEEF 
EEN TOETS":GOSUB1135:GOSUB1131 

1159 PRINT"A1s hl nul is wordt het i 

niezen gestopt en worden verscheiden 
e systeemvariabelenvan de benodigde 
waarden voorzien. (F6C2,F6C4,F6 

C6enF09A>":PRINT 

1160 PRINT:PRINT"Het programma drukt 
de naam en de adres-sen op het sche 

rm en keert terug naar basic.":PRI 
NT 

1161 PRINT"De listing staat nu in he 
t basic geheu— gen en kan normaal"CH 
R*(34)"gelist"CHR*(34)"en bewerkt wo 
r-den.":PRINT"Er kan telkens opnieuw 

gestart worden, maar de oude list 
verdwijnt dan." 

1162 PRINT:PRINT"Groeten ger verslui 
s"SPRINT:PRINT:PRINT"GEEF EEN TOETS" 
:GOSUB1135:RETURN 


CORTROLETELLING 


Rege 

Rege 

Rege 

Rpge 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


993 - 58 

994 - 58 

995 - 58 
m - 5B 
997 - 58 
99B - 58 
999 - 58 

1000 - 58 

1001 - 58 

1002 - 58 

1003 - 114 

1004 - 113 

1005 - 248 

1006 - 58 

1007 - 58 

1008 - 58 

1009 - 111 

1010 - 100 

1011 - 97 

1012 - 148 

1013 - 142 

1014 - 250 

1015 - 96 

1016 - 111 

1017 - 87 

1018 - 88 

1019 - 11B 

1020 - 250 

1021 - 124 

1022 - 97 

1023 - 87 

1024 - 72 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


025 - 77 
026 - 250 
027 - 144 
02B - 229 
029 - 139 
030 - 82 
031 - 66 
032 * 250 
033 - 163 
034 - 227 
035 - 144 
036 - 161 
037 * 147 
038 * 250 
039 - 138 
040 - 189 
041 - 226 
042 - 232 
043 - 226 
044 - 250 
045 - 240 
046 - 219 
047 - 158 
048 - 195 
049 - 247 
050 - 250 
051 - 237 
052 - 164 
053 - 199 
054 - 167 
055 - 226 
056 - 250 
057 - 247 


Reg 
Reg 
Reg 
Reg 
Reg 
Regl 
Rege 
Reg 
Reg 
Reg I 
Rege 
Regl 
Rege 
Reu 
Regl 
Rege 
Reg 

iz 

!& 

Rege 

Rege 

Reae 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 


j 

: 

* 

: 


: 


058 

059 

060 

061 

062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 

081 

082 

083 

0B4 

085 

086 

0B7 

088 

089 

090 


92 

251 

6 

176 

250 

192 
160 
175 
159 
BI 

250 

144 

193 
85 

114 
149 
250 
230 

4 

213 

115 
163 
250 
163 
250 

90 

58 


58 

150 

47 

192 

80 
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GOSUB 1910 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1091 

1092 

1093 

1094 

1095 

1096 

1097 
1096 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 


25 

59 

47 

241 

237 

85 

71 

144 

18 

56 

58 

58 

58 

58 

213 

58 

50 

58 

63 

73 

203 

23 

162 

130 

58 

58 

58 


Regel*. 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 



1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 


40 

159 

18 

58 

58 

58 

155 

B5 

227 

178 

58 

58 

58 

221 

58 

58 

58 

97 

58 

58 

58 

33 

96 


Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Totaal 


1141 - 244 

1142 - 58 

1143 - 58 

1144 - 58 

1145 - 58 

1146 - 58 

1147 - 212 

1148 - 103 

1149 - 3 

1150 - 199 

1151 - 191 

1152 - 188 

1153 * 203 

1154 - 31 

1155 - 104 

1156 - 29 

1157 - 5 

115B - 103 

1159 - 197 

1160 - 169 

1161 - 208 
1162 - 226 

; 21594 


Waaneer deze GOSUB goed ingevoerd wordt 
zijn alle problemen met de sprites 
opgelost. Nu zullen de sprites wel 
verschijnen i.p.v. de letters en de 
vreemde tekens. 

Verder hebben veel mensen problemen met de 
(in elkaar gedrukte) AE's (zie o.a. regels 
650 en 730), Dit zijn GEEN drukfouten. 
Deze tekens zijn op elke MSX machine te 
vinden door de J-toets in te drukken samen 
met de SHIFT toets en de CODE toets. 
Voorts komt in regel 830 nog een Y voor 
met puntjes erboven. Dit is de toets van 
de 5, samen met de CODE toets. Het 
resultaat is echter niet bij alle MSX 
machines gelijk. Soms verschijnt er dan 
een y i.p.v. een Y en op een enkele 
machine verschijnt de Y zonder puntjes 
erboven. Geeft niet, dit is wel de goede 
toets. 


NOGMAALS. 

VIER OP EEN RIJ EN VIJF OP EEN RIJ 


Verder is 'WURZLE' goed. De robots kunnen 
inderdaad doorlopen; ook als er geen 
ondergrond is en alle andere problemen 
zijn echt intik fouten. 


Bij de programma's 'Vier op een rij' en 
'Vijf op een rij' is vergeten de 
beeldscherrabreedte op te geven. Doordat 
bij de iisting vermeld wordt: "beeldscherm 
WIDTH 36", komt -wanneer met deze 
instelling het programma ook geRUNd wordt- 
de tekst niet goed op het scherm, In beide 
programma's moet -in het begin bij de 
SCREEN-opdracht- ook nog een regel worden 
opgenomen met 'WIDTH 37'. 

Volgens Martijn de Bont is het verloop bij 
'Vier op een rij' niet juist. Wij hebben 
het spel in dezelfde volgorde als Martijn 
gespeeld en komen tot het volgende 
resultaat: 

Speler: Computer: 

5e kolom 6e kolom 

6e kolom 7e kolom 

5e kolom 5e kolom !!!!! 

De computer speelt bij ons wel goed. Dus 
Martijn, je hebt wel degelijk een fout 
gemaakt met het intikken. Wij hebben beide 
spellen al diverse malen gespeeld en -in 
overleg met de maker- de fouten hersteld. 
Beide spellen zijn geheel in orde. 


WURZLE 


KASBOEK programma 


In dit programma zit een knoert van een 
fout. Geheel onze schuld en we schrijven 
dit dan ook met het schaamrood op de 
koontjes. In het kasboek programma moet de 
volgende regel extra worden opgenomen: 

3885 N = REC 

De fout komt pas tevoorschijn wanneer na 
het invoeren van de posten een daglijst 
wordt gedraaid en meteen daarna nogmaals 
een invoer wordt gedaan. De teller N staat 
dan 1 positie te hoog en er kan een post 
van de laatste invoer verdwijnen. 

ii 

Het kasboekprogramma draait alleen op een 
lege diskette! (dit is de reden waarom, op 
de Gids-diskette, het programma alleen 
onder het 'LOAD-menu' te vinden is en niet 
onder het 'RUN-menu'). Het programma moet 
-vanaf de cassette of de diskette- 
ingelezen worden en vervolgens worden 
weggeschreven op een lege (geformatteerde) 
diskette. Wanneer nu het programma zal 
worden geRUNd zal het programma zelf de 
files op deze lege diskette aanmaken. Deze 
diskette wordt dan bijna geheel vol¬ 
gemaakt . 


Veel problemen bij onze lezers en jammer 
genoeg ook een drukfoutje. 

Eerst het drukfout je: 

In een groot deel van de bladen is op 
bladzijde 3 in regel 490 niet goed te 
lezen of er GOSUB 1910 of GOSUB 1710 
staat. De tekst is hier wat vaag gedrukt 
maar hier moet staan: 


ST-FILE 


Naar aanleiding van onze oproep om een 
printerroutine voor ST-FILE hebben we van 
Tim Pelsma een eenvoudige en goede 
aanvulling gehad ora ST-FILE van een 
printer routine te voorzien. Het programma 
ziet er als volgt uit: 














3000 REM PRINTERROUTINE 
3010 LPRINT:LPRINT 
3015 FOR PR-1 TO AR 

3020 FOR X = 1 TO AV:LPRINTNV(X);":";MID$(BB 
(PR),L(X,1),L(X,2)); 

3030 LPRINT 
3040 NEXT X 

3042 LPRINT:LPRINT 
3045 NEXT PR 
3050 RETURN 

2442 LOCATE 2,20:PRINT"SCHERM OF PRINTER? 
(B/P)” 

2444 AK$ e INKEY$:IF AK$=”” THEN 2444 
2446 IF AK$-"P” THEN AKS=”P" ELSE AKS*”” 
2448 LOCATE 2,20:PRINT" 

M 


2625 IF AK$“"P '* THEN GOSUB 3000 

Mochten er problemen ontstaan met de 

melding 'OUT OF MEMORY' dan kunnen er wat 
REM regels worden verwijderd of men past 
het CLEAR STATEMENT in regel 50 aan. Een 
nieuwe RUN leert al snel of het nu goed 
is. 

Hartelijk bedankt Tim. De heer Kersten (en 
nog vele anderen) zullen met deze 
aanvulling wel blij zijn. 


MSX-SIGN / SPECIAL OPERATIONS 


Volgens Stanley Harmsen v/d Vliet zit er 
een fout in de regels 1160 en 1170. Hij 
geeft verder niet aan waarom hier een fout 
in zou moeten zitten en bij ons geeft het 
programma geen problemen dus waar¬ 
schijnlijk ook hier weer een intik fout. 
Verder wil hij weten hoe hij, bij het 
programma 'special operations' in het kamp 
(compound) kan komen. Uiteraard kunneh we 
deze -en soortgelijke- informatie wel 
geven maar dat gaat de lol van het spelen 
van adventures er af; zeker voor die 
mensen die nog maar net met een adventure 
begonnen zijn. We houden het dus maar bij 
een paar tips: 

Zoek -per ronde- de juiste mensen bij 
elkaar die je voor de verschillende 
opdrachten kan gebruiken. 

Geef na elk gevecht met de Duitsers een 
'SEARCH'-opdracht. Hiermee kom je b.v. aan 
de -hardnodige- pasjes!! 


LISTING CONTROLE PROGRAMMA 


Regel 65260 van het listing controle 
programma geeft een andere waarde wanneer 
dit programma via het beeldscherm wordt 
gebruikt. Deze waarde is echter voor 
diverse computers verschuilend. Bij 
gebruik van het beeldscherm deze regel dus 
goed nakijken. 


RAMDISK EN GEHEUGENRUIMTE 


We schreven vorige maand over de extra 
ruimte die de MSX-2 van het werkgeheugen 
in beslag nam. Vrijwel direkt na het 
verschijnen kregen we een telefoontje met 
de mededeling dat deze ruimte werd 
gebruikt voor de extra instrukties voor de 
RAMDISK. Erg suf van ons; dat hadden we 
zelf moeten weten. Het Is echter wel 
jammer dat we hiervoor zoveel ruimte van 
de BASIC ruimte moeten inleveren. MSX-2 
heeft een diskdrive en deze werkt heel wat 
sneller dan de Ramdisk. Het wegschrijven 
en inlezen naar en van de Ramdisk gaat 
allemaal in ASCII formaat. Zeer traag dus. 
Alleen hele kleine programma's en files 
gaan snel. Deze Ramdisk is eigenlijk 
alleen interessant om de drive -bij 
intensief gebruik- op deze manier te 
sparen. 

CASSETTE PROGRAMMA'S BLIJVEN 


We hebben veel vragen gekregen over de 
diverse programma's die we geplaatst 
hebben voor diskdrive bezitters. 

Uiteraard van mensen die geen diskdrive 
hebben. Het is zeker niet de bedoeling om 
deze mensen in de steek te laten maar er 
zijn nu eenmaal steeds meer bezitters van 
een machine met diskdrive en het aantal 
MSX-2 ers wordt nu nog steeds snel groter 
en deze mensen willen ook wel eens een 
programma zien voor hun computer. Tevens 
zijn sommige programma's minder geschikt 
voor het werken met een cassette (of zelfs 
ongeschikt). Het kasboek programma is 
hiervan een goed voorbeeld. We schrijven 

en publiceren voor ALLE MSX-ers. Iedereen 
komt aan bod, het het zal zeker ook 
gebeuren dat er programma's speciaal voor 
de MSX-2 geplaatst zullen worden. Op een 
gegeven moment zullen er veel meer ge¬ 
bruikers zijn met een diskdrive dan zonder 
(de enquete zal wel uitwijzen hoe de 
verhoudingen liggen) en uiteraard zullen 
er tegen die tijd ook meer programma's 
voor diskdrive verschijnen. Voorlopig is 
het echter nog niet zover en het meren¬ 
deel van de programma's is nog steeds voor 
cassette geschreven. 

A. De beis 


GEZOCHT: 

Een vertaalprogramma van MSX naar Com¬ 
modore 64, het programma Mastervoice/ 
Wordstore. Ook MSX-ers die in -of nabij- 
Den Bosch wonen om ervaringen en 
programma's uit te wisselen. 

Martijn de Bont, 3e Rorapert 113, 5233 AH 

's-Hertogenbosch. Tel. 073-411264 

TE KOOP: 

Terminals, bestaande uit keyboard, monitor 
en de nodige elektronica. NIET 100% in 
orde. Geheel metalen kasten. 

R.Walbeek, Wilack 229, 5403 VS Uden. 

Tel. (bij voorkeur weekends) 04132-64900 
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MSX-2 NIEUWS 


Het belangrijkste nieuws is natuurlijk de 
komst van de nieuwe machine van 
Spectravideo (zie elders in dit blad). Wel 
geen 100% MSX computer maar zeker de 
moeite waard en de stap van MSX naar deze 
machine is, door de ingebouwde videochip, 
de geluidschip en de uitgebreide BASIC, 
erg klein en zal door velen, die behoefte 
hebben aan een grotere computer, makkelijk 
gemaakt worden. Maar ook van Philips komt 
nog het een en ander op MSX gebied. 


RANDAPPARATUUR VAN PHILIPS 


Nieuwe artikelen voor de MSX zijn o.a. een 
muis en een tekenbord. Beiden zijn aan te 
sluiten op de joystickpoorten. 


NIEUWE MSX-2 COMPUTERS VAN PHILIPS 



Philips komt met 3 nieuwe machines op de 
markt: 

NMS 8220 


MSX-2 computer zonder ingebouwde diskdrive 
met 64 Kb Ram en 128 Kb Videoram. Verder 
is deze machine qua uiterlijk gelijk aan 
de VG8235; natuurlijk wel ietsje lichter 
in gewicht en een beetje kleiner. 

NMS 8250 

Deze machine valt goed op. De computer zit 
in een aparte kast met een los 
toetsenbord. Het toetsenbord heeft een 
numeriek gedeelte en in totaal 89 toet¬ 
sen. In de kast zit een 3.5” diskdrive 
ingebouwd met een opslagcapaciteit van 720 
Kb en er is plaats voor een tweede 
diskdrive. Verder is het inwendige (128 Kb 
Ram en 128 Kb Videoram) weer gelijk aan de 
VG8235. Ook de aansluitmogelijkheden zijn 
gelijk aan de VG8235. Wel is het gewicht 1 
kg zwaarder. Een schitterende machine die 
op de Philips stand tijdens de Firato wel 
te zien zal zijn. Jammer genoeg wisten we 
bij het ter perse gaan van dit nummer nog 
geen prijs. 

VG8280 

Van deze machine weten we alleen dat deze 
'super imposing' en 'frame grabbing' 
heeft. Verdere gegevens ontbreken nog. 



PHILIPS MONITOREN 


Philips komt met een serie nieuwe kleuren 
monitoren waarvan er twee een hogere 
resolutie hebben dan de 'oude' CM8533. Het 
gaat om de CM 8852 met een 700 beeldpunten 
horizontaal en 15 MHz videobandbreedte. 
Het topmodel is de CM8873, Deze kleu- 
renmonitor heeft 900 beeldpunten hori¬ 
zontaal en een bandbreedte van 18 MHz. De 
monochrome monitoren hebben allen een ho¬ 
rizontale resolutie van 920 beeldpunten 
horizontaal. Twee modellen hebben een 
vertikale resolutie van 350 beeldpunten 
(de BM7513 en de BM 7523). De anderen 
hebben een vertikale resolutie van 300 
beeldpunten. Enkele van de bovengenoemde 
monitoren zijn alleen geschikt voor PC's. 

Van alle artikelen was, bij het intikken 
van deze tekst, de prijs nog niet bekend. 


MSX-2 SOFTWARE 


Eindelijk komt dan ook de langverwachte 
MSX-2 software. Hierbij zitten enkele heel 
interessante programma's. We zullen ei 
enkelen van opnoemen: 

Topografie Nederland, Topografie Europa 
Topografie Wereld, Tempo typen, Kruis¬ 
woord, De sekte, Eindeloos, De grotten van 
Oberon, Rekenwonder, Wordstar / Mailmerge, 
Infostar, Calcstar, Infas grootboek, Infas 
crediteuren, Infas debiteuren, Infas voor¬ 
raad, Infas facturering, Laydock en 
Hydlide. 

Al deze programma's verschijnen op 
diskette. Van het hele rijtje hebben we 
alleen Laydock op de redaktie liggen en 
reeds gespeeld. Dit programma ziet er 
schitterend uit en is grafisch zo mooi dat 
het kijken ernaar leuker is dan het spelen 
zelf. Ook komt er -tegen het eind van het 
jaar- waarschijnlijk een heleboel software 
uit Japan binnen via de MSX-Softshop. 
Houdt de advertenties dus maar in de 
gaten* 

A.Debeis 
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SERIEUS IN SOFTWARE 


VERWACHT* TAS WORD M5X-TWEEJ 

De beste tekstverwerker voor MSX, nu in een geheel nieuwe versie 
voor MSX-2 computers* Tot 80 kolommen op het scherm en ook op de 
printer. Vele nieuwe mogelijkheden: headers en footers, meerdere 
prints* automatische pagina-nununering, Moeilijk’ formatteren, 5 
kladbioks, een tweede karakterset, achtvoudige 'TAB'-instelliug, 
GOTO regelnr*, etc*, etc. Optimaal werken met diskdrives (ook 
voor 2 drives, automatische back-up, saven, laden, wissen). Dit 
fantastische programma is het dubbele waard van: * disk f 149,00 
Opgei et: bij inwisseling v.d, originele Ned, Tasword voor MSX-1 
en ingezonden servicekaart (T) betaalt u voor TASWORD MSX-WEE 
slechts de helft van de nieuwprijs: * disk f 75,00 

VERWACHT: DE B0EKHOUDER-MSXI 

Voor MSX-2 computers is dit een ideaal boekhoud programma, dat de 
van andere programma's bekende mogelijkheden biedt » plus vele 
extra's, xxx grootboekrekeningen, yyy mutaties per keer invoeren 
26 posities voor omschrijvingen, B.T.W. berekenen via een druk 
op de knop, etc. Vanzelfsprekend: uitdraai van ingevoerde muta¬ 
ties, tussentijdse resultatenrekening/balans, overzichten per 
rekening, doorboeken van een mutatierun, afsluiten periode, een 
proef/saldi/eindbalans en resultatenrekening, B.T.W.-aangifte. 
Alle printeruitvoer kan naar eigen inzicht worden geregeld* DE 
BOEKHOUDER is voorbereid op het gebruik van extra modules voor 
o,a, debiteuren, crediteuren, salarissen, periodieke lasten, 
etc. (nog in ontwikkeling). Prijs: ca, * disk f 199,00 

NIEUW! EERSTE HULP (CARETAKIR) 

Afgelopen met laad-fouten bij gebruik van een cassetterecorder! 
M.b.v, dit programma stelt u zelf de koppen van uw recorder 
perfekt af op de (kritische) laadvereisten van de MSX-computer. 
Een oiiniatuur-schroevedraaier wordt bijgeleverd, cass f 29,00 

TASWORD MSX 

DE tekstverwerker voor alle MSX-1 computers, werkt ook op MSX-2 
(!), en met alle printers* 64 karakters per regel op het scherm. 
Geheel Nederlandstalig, met duidelijke handleiding en service¬ 
kaart, Prijs op disk: f 115,- cass (incl, diskversie) f 95,00 

ZELF PROGRAMMEREN 

HISOFT UITGAVEN -(**) In Basic programmeren op een MSX heeft zo 
z'n beperkingen. Wanneer de computer sneller en efficiënter moet 
werken, is het beter tl i rekt in machinetaal, of in een hogere 
programmeertaal zoals Pascal of C te schrijven* Uit Engeland 
importeert Filosoft daartoe de kwaliteitsprodukten van Hisoft, 
waarbij eventuele updates van deze programma's (en 
erop!) meestal door ons verzorgd kunnen worden. Het 
Hisoft voor MSX ziet er als volgt uit: 

HISOFT DEVPAC - (dis-)Assemblee en monitor cass f 79,00 

HISOFT DEVPAC 80 - (dis-)Assembler en monitor disk f 175,00 

HISOFT PASCAL - cass f 125,00 HISOFT PASCAL 80 - disk f 175,00 

HISOFT C++ - disk f 175,00 AZTEC C compiler - disk f 725,00 


de service 
pakket van 


EDUKATIEF 

GELD -Edukatief programma met spelelementen* 

DEELSOM 

ALFABET 11 

PROCENTEN 
ENGLISH WORDS 
OPTELLEN TOT 20 
OPTELLEN EN AFTREKKEN 
CIJFEREND VERMENIGVULDIGEN 
DRIF.-1N-EF.N -3 edukatieve programma’s (w.o, Aardrijkskunde met 
grote scrol lende kaart van Nederland) op een cass f 34,50 

REDEKUNDIG ONTLF^DEN -Zeer uit gebreid edukatief programma voor 
de Nederlandse taal. Toepassing op school en thuis, cass f 59,00 

DIVERSEN 




tt 


ti 


ft 


tl 


tt 


ti 


ir 


ft 


ti 


34 , 50 
34,50 
34,50 
34,50 

* cass f 34,50 

* cass f 34,50 
cass f 34,50 
cass f 34,50 


I TJING -Mooie computerversie v.h, Chinese orakel disk f 79,00 
BRIDGE -Nederlands bridgen, ook als tutor ' cass f 59,00 
MSX-64 PLUS -Geeft 64 tekens per regel in uw 
via een nieuw Basic-commando: FPRINT. 

VIDITELLERS OPGELET 


eigen programma s 
cass f 34,50 


FILOTEL (050-145174) is onze eigen databank, en 24 uur per dag 
bereikbaar voor iedereen, die apparatuur heeft om met Viditel te 
bellen (abonnement niet nodig)! 

INFORMATIE 

Programma's, gemerkt met 1 ster (*) zullen binnenkort leverbaar 
jrt* 2 sterren (**) betekent dat een programma (enige) kennis 
van de Engelse taal vereist* Meer informatie over onze program¬ 
ma's staat in de gratis folder. Vraag ‘m aan (vermeldt wel het 
merk van uw computer) d*m,v* een briefkaartje naar: Postbus 1353 
9701 BJ Groningen, of telefonisch: 050-137746. Filosoftprodukten 
vindt u in de goede computerzaak, maar zijn ook rechtstreeks te 
bestellen; door storting van het bedrag + f 3,50 verz,kosten op 
giro 20792 t*n,v* Filosoft, Groningen* Telefonische bestellingen 
worden (tegen meerprijs) zo mogelijk nog dezelfde dag verzonden. 


MSX-LINE 



MSX-LINE is een databank die draait op een 
MSX-2 computer, het minihost programma, 
een Telcom modem en een dubbelzijdige 
B-drlve. De databank beschikt over bijna 
alle funkties die Viditel ook bezit, maar 
is wel wat trager. 

Wat kunt u zoal vinden in deze databank: 

* Een uitgebreide berichtendienst. 

* Prikborden (deze kunt u als lid zelf 

beschrijven. 

* Informatie over andere databanken. 

* Een editor waarmee Il's (informatie 
leveranciers) zelf een aantal beelden 
kunnen invoeren. 

Eigenlijk teveel om op te noemen. 

Ook beschikt MSX-LINE over een aantal *0 
funkties om bijvoorbeeld bij een slechte 
lijn een beeld opnieuw op het scherm te 
laten komen (*00), om te editten op 
prikborden (*06), een "help" pagina op te 
roepen (*05 of gewoon ?) enz. Tevens is er 

een chat-mode (praten met de beheerder) 
aanwezig. Al deze funkties maken de 
databank zeer gebruiksvriendelijk. 

Verder bevinden zich in MSX-LINE honderden 
pagina's telesoftware die u met 
MT-Viditel, MT-Telcom of het Teletron 
modem (versie 2.4 of hoger) kunt laden. Er 
zijn zelfs plannen om, naast MSX-LINE, een 
speciale telesoftwarebank te starten die 
voor ieder lid gratis toegankelijk is. 

Het lidmaatschap is niet gratis, maar het 
geld dat wij hierdoor ontvangen komt weer 
ten goede aan de gebruiker. Zo zal de 
databank t.z.t. met een harddisk worden 
uitgerust en organiseert MSX-LINE een 
prograrameerwedstrijd met behoorlijke prij¬ 
zen . 

Maar genoeg geschreven over onze databank; 
kom zelf maar eens kijken. 

MSX-LINE: 010-4232032 
Sysop : Jack Schuyff 

* 

Het abonnement kost 29,75 per jaar ( 
25,= + BTW). 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciële aard ! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor¬ 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


TE KOOP: 

Philips MSX-2 computer VG8235/128kb met 
ingebouwde diskdrive 360kb. Philips 
monitor type BM7552, groen monogr. 25 reg. 
/ 80 kar. , 920x300 beeldpunten. Philips 
datarec. D6625 tot 2400 baud. Norm. 

Philips garantie. Alles in 1 koop. Vaste 
prijs 1999,» (2 mnd. oud). 

Inlichtingen na 18.00 uur: 

W.v. Beveren, tel. 050-731471 

GEZOCHT: 

Een Cobol compiler (spoed), Slagen voor je 
rijbewijs en een backup programma voor 
tape-disk. 

G.de Gruyter Jr., Soerensebeek 17, 

1509 HR Zaandam. 

TE KOOP: 

MSX software: Muzieknoten cursus, 3 in 1 , 
Le Mans. Alle origineel met beschrijving. 

Samen ƒ 50,» ex. verzendkosten. 

Backup batterij 12V-1,1AH dryfit. f25,* 

ex. verzendkosten. 

Joost Bosman. Tel. 05910-40202 


SOFTWARE RUILEN: 

Omg. Z-H(H.Waard/Flakkee) Veel op disk. 
O.a. Wordstar, AACKOTEXT,-BASE 
Tel. na 18.00 uur: 01869-1221 


MSX ROM / BIOS HANDBOEK 

Ean uitgave van: TERMINAL SOFTWARE PUBLICATIES 
Postbus 111, 5110 AC Baarle Nassau. 

Medio september 1986 verschijnt het Nederlandstalige 
MSX ROM/BIOS HANDBOEK Dit 300 pagina’s tellende 
handboek bevat alle noodzakelijke informatie voor de 
serieuze MSX programmeur. 

Beschreven worden o.a.: 

ROM'BIOS 

ROM-BASIC INTER PR ETER 
SYSTEEM VARIABELEN 
HOOKS 

INS EN OUTS van de Video Display Processor (VDP) 

INS EN OUTS van de Programmable Sound Generator 
(PSG) 

INS EN OUTS van de Programmable 
Peripheral Interface (PPI) 

Alle adressen zijn overzichtelijk gerangschikt bovendien 
is een uitgebreide index aanwezig zodat het zoeken van 
bepaalde informatie snel kan geschieden. 

Al met al een onmisbaar naslagwerk voor hen die alles uit 
hun MSX willen halen. 

Reserveer nu al uw exemplaar door overmaking van f 55,- 
op giro 3667557, tn.v. N. Joosen, Baarle Nassau o.v.v, 
MSX ROM/BIOS. Of door een wettig betaalmiddel (euro¬ 
cheque/postcheque) tw.v. f 55,— te zenden aan onderstaand 
adres. 

Betalen bij ontvangst kan ook, de prijs wordt daru f 55,- + 
f 3,75 verzendkosten. Bij vooruitbetalen (zie boven) worden 
geen verzendkosten in rekening gebracht. 

Ook verkrijgbaar in Boekhandel en Computershop, via 
Computercollectief, MSX-SOFTPOST, Computerpost Raalte 
voor Beigie: MSX SHOP te Keerbergen of Computerwinkeltje 
te Mechelen. 



EEN ABONNEMENT KOST FL. 40,= PER 6 NUMMERS EN IS TE VERKRIJGEN 

DOOR OVERMAKING VAN DIT BEDRAG OP GIRO 5036011 T.N.V. J.HERPS TE 
AMSTERDAM. 


VOOR BELGIE: B F R. 750 OP BANKREKENINGNUMMER 23 5-0430464-87 BIJ 
DE GENERALE BANKMAATSCHAPP IJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 


Girobetaalkaarten of Eurocheques (vergeet niet het nummer op de 
achterzijde in te vullen) kunnen gestuurd worden naar: 

Uitgeverij HERPS, Postbus 10252, 1001 EG Amsterdam. 

Tel. inlichtingen over abonnementen en losse nummers: 020-327464 







































Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 


DE LISTINGS UIT GIDS 1 EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 


De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma llstings uit ons blad overnemen. 
Met dit programma publiceren wij een 
kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt u dan -ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. 


MSX-BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: namelijk 
het REM-statement en regels die beginnen 
met Beide regels hebben over het 
algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programma's 
geplaatst kan worden. U toetst dit 
programma in en kontroleert het met 
zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE “CAS:TESTER" op cassette 
worden gezet. (Wel eerst regel 65170 weer 
opnemen!t). 

Het programma wordt dan als ASCII-file op 
de band gezet. 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als volgt: 

U tikt het programma, dat u wilt hebben in 
en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 


kan met MERGE "CAS:TESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN. 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 
Voor het laden van het testprogramma moet 
de instruktie 'MERGE' worden gebruikt en 
niet LOAD! (Dus MERGE "CAS:TESTER" ) . Bij 
gebruik van LOAD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen oragewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASIC - 
instrukties wordt wel een fout 
geconstateerd. 


Een controle 
grote -of 
geplaatst. 


telling wordt alleen bij 
ingewikkelde- programma's 


Beeldscherm» WXDTH 37 


65000 ’ *************** «Ut****** 

65010 ’ * LISTING TESTER 2 * 

65020 ' * Door Al-f red Debel 5 * 

65030 ’ * <c)1986 De MSX Gids * 

65040 ’ * Amsterdam * 

65050 ’ *********************** 

65060 •' 

65070 CLSsCLEARsSCREEN 0SWIDTH 40sPRI 
NT 

65080 PRINT "Weergave via beeldscherm 
o-f printer?" 

65090 PRINT : PRINT "B oi P?s " 

65100 X$-INKEY$s IF X*<>"B" AND X*<>"P 
" THEN 65100 
65110 START=32769! 

65120 RG=START+2s T«0 

65140 VR=PEEK(START)+256*PEEK < START+1 
) 

65150 NR=PEEK(RG)+256*PEEK(RG+l) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000 * THEN 65290 
65180 S=0:FOR I=RG+2 TD VR-1 

1 O Oi A — P P P k!" ( T ) 

65210 IF A=143 THEN I=VRsGOTO 65240 
65230 S= S+AsNEXT 
65240 S=SM0D256 
65250 T-T+5 

65260 IF XS="B" THEN PRINT USING "Reg 
els##### - ###" i NR,Ss GüTD 65280 
65270 LPRINT USING "Regels##### - ### 
"»NR,S 

65280 START=VRs RG=VR+2lGOTO 65140 
65290 IF X*="P" THEN 65310 
65300 PRINTS PRINT "Totaals "fTs END 
65310 LPRINT "Totaal: "jTs END 


Regel 

s 65000 

— 

SB 

Regel 

s65010 

— 

58 

Regel 

:65020 

— 

58 

Regel 

s 65030 

— 

58 

Regel 

s65040 

— 

56 

Regel 

s 65050 

— 

58 

Regel 

s 65060 

— 

58 

Regel 

s 65070 

— 

151 

Regel 

s 65080 

— 

129 

Regel 

s 65090 

— 

32 

Regel 

s 65100 

— 

5 

Regel 

s 65110 

— 

23 

Regel 

s65120 

— 

200 

Regel 

s65140 

— 

133 

Regel 

s65150 


147 

Regel 

I65160 

— 

132 

Regel 

S65180 

— 

201 

Regel 

s65190 

— 

96 

Regel 

s65210 

— 

234 

Regel 

ï 65230 

— 

164 

Regel 

s65240 

— 

173 

Regel 

I65250 

— 

219 


Regels 65260 - 167 
Regels 65270 - 13 
Regels652B0 - 136 
Regels 65290 - 239 
Regel:65300 - 233 
Regels 65310 - 42 
Totaals 3275 
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* ******* -k ** -kic ******** icM ic * -k •k'k'k'k * ** -k -k *+★****’**★***★★* ü * 

* onze nieuwe ZOMER 1986 CATALOGUS is uit. stuur ons * 

* een kaartje met je naam en adres en de vermelding * 
★’MSX-GIDS’ en we sturen hem gratis toe. * 

** * rk -k -k * -kifk * *■ *-★* ut * * * ■k-k^c-k'k -k k kkkk kk k kkkk k kk k kkkkkkkk *+* k 

BOEKEN voor MSX COMPUTERS : 

★WERKEN MET BESTANDEN IN MSX BASIC . f 45,— 

PROGRAMMEERCURSUS MSX BASIC - ook voor MSX-2 . f 45,— 

ADVENTURES! VOOR DE MSX COMPUTER! . f 24,95 

★MSX PROGRAMMA MIX . f 29,— 

GRAFIEK EN GELUID VOOR DE MSX COMPUTERS _ f 49,— 

★MSX MACHINETAALBOEK . f 49,— 

★BASICODE-3 + cassette voor MSX en MSX-2 ...... f 27,50 

★MSX DOS met Disk BASIC .. f 32,50 

★LEREN OMGAAN MET MSX COMPUTERS . f 24,9Q 

50 PROGRAMMA'S VOOR MSX COMPUTERS . f 21,50 

MSX BASIC - LEREN PROGRAMMEREN .. f 24,50 

★MICROSOFT BASIC - GW BASIC, MSX BASIC, MBASIC f 69,-- 

MSX BASIC Leerboek deeL 1 . f 24,50 

MSX BASIC Leerboek deeL 2. f 24,50 

★MSX DOS Leerboek deeL 3 .. f 24,50 

★MSX TRUUKS EN TIPS deeL 4 . f 25,— 

★MSX TRUUKS EN TIPS deeL 5 . f 25,-- 

MSX COMPUTERS EN PRINTERS aansluiten, gebruik f 27,50 
MSX BASIC HANDBOEK uw MSX computer de baas ... f 49,50 

MSX DOS handboek voor iedereen . f 26,50 

MSX DISK handboek voor iedereen .. f 29,50 

MSX QUICK DISK handboek voor iedereen ........ f 23,50 

★MSX MACHINETAAL HANDBOEK . f 34,50 

★MSX VERDER UITGEDIEPT peeks, pokes etc . f 23,90 

BOEKEN voor MSX-2 : 

★MSX-2 BASIC HANDBOEK .. f 56,50 

★MSX-2 UITBREIDINGSHANDBOÊK DISk/DOS .. f 37,50 

★MSX-2 TOEPASSINGSHANDBOEK Utilities (ook MSX1) f 29,75 


in BELGIE : het Computerwinkeltje pvba, M Sabbestr 39, 

B-2800 MECHELEN - tel 015/206645 

BOEKEN voor MSX COMPUTERS : 

MSX PRAKTIJKPROGRAMMA'S . f 24,50 

MSX TRUUKS EN TIPS deel 1 . f 25,— 

MSX TRUUKS EN TIPS deel 2 . f 25,— 

★MSX TRUUKS EN TIPS deel 3 . f 25,™ 

MSX ZAKBOEKJE . f 19,50 

★TERMINAL GRAPHICS ONTWERPBOEK MSX (layout blok)f 12,50 
FINANCIËLE PROGRAMMA’S VOOR MSX COMPUTERS .... f 25,~ 

HET MSX SOFTWARE BOEK... f 27,50 

★MSX ROM / BIOS HANDBOEK ..eind september f 55,— 

300 pagina's informatie v gevorderden. 

WERKEN MET DE MSX COMPUTER, praktijkprogr. ... f 25,— 
DE MSX GEBRUIKERSGIDS .. f 39,50 


ENGELSE en DUITSE boeken voor MSX : 

INTRODUCING MSX ASSEMBLY LANGUAGE & MACH CODE 

THE MSX GAMES BOOK (Gregory) . 

HOW TO PROGRAM YOUR MSX COMPUTER PROFESSIONAL 

BEHIND THE SCREENS OF THE MSX .. 

IDEAS FOR MSX .. 

★THE MSX RED BOOK - ROM, BIOS, Memory Map .... 

STARTING MACHINE CODE ON THE MSX . 

USEFUL UTILITIES FOR YOUR MSX .. 

COMPLETE MSX PROGRAMMERS GUIDE . 

MSX EXPOSED .. 

MSX GAMES BOOK CLacey) .. 

PRACTICAL MSX MACHINE CODE PROGRAMMING . 

PROGRAMMER’S GUIDE TO THE MSX SYSTEM . 

★MSX BIOS .. ... 

GAMES FOR YOUR MSX .. 


36,-- 

45,— 


★MSX FLOPPYBUCH (Data Becker) . 
★DAS MSX-BUCH MIT MSX-2 (SYBEX) 


TOEBEHOREN : 

★CAT TRACKBALL voor Eddy II en MUE . 

ARCADE TURBO JOYSTICK (MSX compatible) .. 
NASHUA diskettes 3.5 inch ss per 10 stuks 


m m m * 


f 45,— 
f 36,— 
f 36,— 
f 45,— 
f 
f 

f 39,— 
f 17,50 
f 69,— 
f 39,— 
f 36,— 
f 27,— 
f 39,— 
f 99,— 
f 17,50 

f 69,— 
f 69,— 


f250, 
f 89, 
f 75, 


ACTUELE EN NIEUW BINNENGEKOMEN MSX SOFTWARE (t=tape/d=disk/c=cartridge) 


TASWORD MSX engels tape/disk t 65,— 

MSX HUISHOUDBOEKJE . t 24,50 

MT-DISPLAY lichtkrant . c 199,— 

PSG musiwriter cartridge ... c 120,— 

BASIC CURSUS MSX . t 29,50 

MSX MUZIEK-NOTEN-CURSUS _ t 19,50 

TYPE CURSUS MSX . t 19,50 

STAR SEEKER . t 45,— 

★SLAGEN VOOR HET RIJEXAMEN .. t 59,— 


ó COMPUTER HITS .. 

★JACK THE NIPPER . 

★ ICE KING .. 

★BOUNDER . 

★MACADAM BUMPER pinbalL constr 

★VALKYR . 

HYPERRALLEY cartridge . 

★CASTLE BLACKSTAR . 

LAZY JONES . 


t 

t 

t 

t 

t 

t 

c 

t 

t 


35 
39 
32 
39 
39 
39 
69 

36 
45 


* * e * 


• • * 


LETTER SET MSX maak letters 

MSX SOUND MAKER . 

MSX ZOOM/SPRITE EDITOR 
★MUE Music Editor cartridge . 
KUMA SPREADSHEET (disk: 159) 
EDDY II tekenprogramma . 


t 19,50 
t 19,50 
t 19,50 
c 95,— 
t 135,— 
c 76,— 


-nieuw!- 

★MSX CALC cartridge.. 225,— 

nederLandstalig spreadsheet. 

★MSX TEXT cartridge.. 195,— 

tekstverwerker + database voor 
MSX-1 en MSX-2 in het nederlands 
met nederlandse handleiding 
met opslag op cassette of disk. 


LE MANS autorace ............. 

★ATTACK OF THE KILLER TOMATOES 

★KNIGHT TYME . 

★MOLECULE MAN ... 

★TURMOIL ...................... 

★JOURNEY TO THE CENTRE OF EARTH 

★SCRABBLE MSX . 

ROAD FIGHTER cartridge _ 

ROLLERBALL cartridge . 

★MONOPOLY MSX . 

SPACEWALK+FINDERS KEEP+CHILLER 

ZOIDS ... 

★KNIGHTMARE (Konami) . 

★KONAMI BILLIARD . 

NIGHTSHADE .. 

★CLUEDO MSX . 


mm 


INI TTT 1 TTT 


' i i i i i i . i i ... 


45 ■ 
39 
15 
12 
15 ' 
15 
45 
69 
64 
45 
30 
39 
69 
69 
45 
45 
INI 1 


t 

t 

t 

t 

t 

t 

t 

€ 

C 

t 

t 

t 

c 

c 

t 

t 


m m 


■ ■ * 


737 FLIGHT SIMULATOR 
★DUNKSHOT basketball cartridge 
★GROG 1 S REVENGE . 


DECATHLON .. 

FORMULA 1 SIMULATOR _ 

★SPEED KING motor race .. 
HYPERSPORTS 3 cartridge 

KNOCKÜUT 3D . 

SAMANTHA FOX STRIP POKER 

KONAMI SOCCER.. 

WAV OF THE TIGER MSX ... 

YIE AR KUNG FU II . 

BATTLE FOR MIDWAY . 

THE PRICE OF MAGIK . 

I 1 I 1 1! 


t 

t 

t 

c 

t 

t 

t 

t 

t 

t 

t 


programmeertalen : 

HISOFT PASCAL COMPILER tape... t 135 

HISOFT DEVPAC tape. t 89 

★HISOFT C++ disk 3.5". d 185 

★HISOFT PASCAL disk 3.5"... d 185 

★HISOFT DEVPAC disk 3.5". d 185 

★MSX ZEN assembler DISK 3.5"... d 185 

MSX LOGO . t 95 

MSX KUMA FORTH. t 185 

MT-DEBUG cartridge .. c 149 


t 49 
c 79 
t 45 


59 

10 

12 

69 

39 

39 

69 

39 

69 

45 

45 
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tussen 11.00 t/m 17.00 Cmaandag/dinsdag 

vraag onze n 
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gesloten) - alle prijzen inclusief 
ïeuwe ZOMER 1986 CATALOGUS aan. 
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TeL 020 


** 


*** 

**»• 


***** **r«*** 

* **•" ï«ö« ;**•**; 222*22* 222*2** 22*22*5 

•• ***** *«* «•!_. fff !!! SI. *** »•• 

** ***** »*< 


**•• *(/•**• 


******* *** 
***** fff 


Bereikbaar met tram lijn 7 of 13 
en bus lijn 15, 19 of 18. 

Dagelijks geopend van 10.00 tot 18.00 uur. 

Op koopavonden tot 21.00 uur. 

’s maandags van 13.00 tot 18.00 uur 

************* 



i'******************************* 1 '******************* _ , 

Wij hebben het grootste assortiment MSX-software en boeken in voorraad 
Ruim 350 titels en 100 boeken en natuurlijk alle tijdschriften. 


fc 'tl 

\ 


Bii ons kunt u alle software bekijken, ook de nieuwste en natuurlijk ook MSXII 

****,.„************.*«**-****«****—**************-*****************************************.******** 

Wij zijn dealer voor alle grote merken zoals Spectravideo, Sony, Philips, 

Filosoft en vele Engelse Softwarehuizen. 

Wij leveren hardware aan scholen en bedrijven tegen scherpe prijzen. 

STUNTPRIJS VOOR DE SPECTRAVIDEO 738 ”X-press”. f 999,- 

Kompleet met Wordstar en groene monitor.. J 

ïg{SRss£8s&^ 

Rêgeïma«ï‘zTjn wij op de diverse computerbeurzen te vindeni met veie 

®!*®?Jfl;***^i*-,***********—****************************************************ïr*******r***7:* 

Voor informatie over opleidingen, technische problemen en software, kunt u 
ons altijd bellen 020 - 123206 of 183001 

***,***,*„.*-.**„.*...«*».*..*...»***.«**«*********************’********************************7* 

PERMANENTE DEMONSTRATIE van MSX 1,2 en diverse randapparatuur 

en viditel/datacommunicatie. .. . . „ 

Uw eigengemaakte programma’s kunt u bij ons laten uitprinten tegen 

kostprijs. 

„„ i *^****,*****************«.«*«****.***************—****************"***^*****************''* 

MSX ”S0FTP0ST” 

Van Kinsbergenstraat 62 
1057 PT Amsterdam. 

TeL 020 - 183001 

Bestel telefonisch en u heeft 
heel snel het door u gewenste 
programma in huis. 

(ma-vrij van 10.00- 14.00 uur) 

Levering onder rembours (f 9,50) 
of na vooruitbetaling (gratis) 

Uitsluitend levering uit voorraad. 

Bij uw bestelling krijgt u tevens 
onze gratis catalogus met ruim > 

520 MSX artikelen meegezonden. 
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